














e afl . 
ai CalvaCom 


Apple // & Macintosh 


“7 @ ouverture des Apple à la 
communication dans les 
pagcs de Pom's se 

<j poursuit par un 

programme qui allie au «savoir 
communiquer» de CalvaCom 

l'indispensable liaison à 

l'ordinateur. 





CalvaCom 


Pour les lecteurs non encore au fait des 
possibilités de CalvaCom, une 
présentation sommaire s'impose. F1 se 
différencie des serveurs habituellement 
consullés à l'aide du Minitel par 
plusieurs points : 


+ on y accède par le 36 13 (ou 

36 00 36 O1, une unité toutes les 6 
mn moins réduction d'horaires), le coût 
de connexion étant réglé directement à 
CalvaCom (prélèvement ou carie 
bancaire) ; 


+ la consultation se fait sans caractère 

graphique : seuls les caractères ASCII 
arrivent au modem ou au Minitel. Ce 
dernier affiche les messages en mode 
“rouleau” tcl une imprimante ; 


+ passer de menus en menus est bien 
plus simple et efficace que sur les 

serveurs kiosque, l'accès à l'infonnation 

est particulièrement rapide ; 

+ il a été conçu dans l'optique de la 
connexion à l'ordinateur : les 

informations disponibles sont réellement 

exploitables par le micro. 


CalvaCom met à la disposition des 
abonnés : 


* une messagerie électronique qui 

permet à chacun de classer ses 
messages, de répondre simplement, de 
recevoir des messages directement de 
l'ordinateur de l'abonné pour éviter de 
perdre du temps à les composer en 
direct ; 


+ le service TELEX, en émission et 
rÉceplion ; 

+ des forums électroniques , 

«un système de téléconférence {convi- 
vialité) , 

+ un système de petites annonces ; 


+ des magazines électroniques ; 

+ des bibliothèques de programmes 
téléchargeables ; 

+ les dépêches de l'Agence France 
Presse; 

+ les cours de la bourse avec possibilité 
de passer des ordres, 

- des ‘cités’ centrées sur Atari, IBM, 

Apple //, Macintosh... 


Le programme 
CLV_P@MS 


Proposé en version Apple // et en 
version Macintosh, CLV_POMS donne 
les possibilités suivantes : 


* enregistrement de consultations 

CalvaCom. Ées fichiers constitués 
sont récupérables par votre traitement de 
texte, votre tableur. et ils ne sont 
limités en dimension que par la capacité 
de votre support disque , 


* mode téléscripleur : impression au 

fur et à mesure de la réception, mode 
particulièrement efficace lors de 
l‘‘écoute” des dépêches AFP (qui 
tombent au fur et à mesure de l'actualité) 
ou des cours de la bourse ; 


+ exportation de fichiers vers 
CalvaCom : vous voulez passer une 
petite annonce, nous laisser un message 
{le code de Pom’s est EMPIi), 
participer à un forum, constituer un 
fichier sur le serveur pour utilisation 
ultérieure ? Préparez-le en traitement de 
textes et envoyez-le par cette option : il 
sera transmis sans protocole mais au 
bon débit, en respcctant la mini-pause de 
fin de ligne; 
+ procédures : c'est une utilisation 
paniculière du mode précédent. Il est 
possible de préparer un texte 
comprenant les options choisies pour 
une consultation habituelle et de 
l'envoyer à CalvaCom pour atteindre 
plus rapidement et sans erreur les 
informations. Pour consulter 
automatiquement les publicités du forum 
Macintosh, la procédure pourrait être la 
suivanle : 


N°_ abonné 


Mot de passe 
ci 


mac 
fo pub 


Des pauses peuvent être incluses dans le 
fichier pour tenir compte du temps 
d'affichage des nouveautés après le mot 
de passe par exemple. 


* impression d'un fichier de textes sur 

disque : il s'agira souvent du résultat 
de votre dernière connexion ou d'une 
dernière vérification de votre texte avant 
exportation. 


Bien entendu, Îles programmes 
CLV_POMS recodent les minuscules 
accentuées lant en émission qu'en 
réception, tant sur le Mac que sur 
l'Apple //, tant avec un Minitel 40 
colonnes que sur le 80 colonnes. 


Configuration 


CLV_POMS fonctionne sur : 


Apple Î[+ avec ROM minuscules, 
carte langage et carte Super Série Apple ; 
Apple //e avec carie Super Série 
Apple; 

Apple //c;: 

Apple IIGS sur son port modem 
intégré où avec une carte SSC ; 
Macintesh 128, 512, Plus ou SE. 


H nécessite : 

- un modem où un Minitel {les modèles 
80 colonnes sont bien plus 
agréables), 

- un câble de liaison disponible à la 
revue. 


La disquette 


CLV_POMS, écrit en assembleur, est 
livré sur une disquette 3'5 pour 
Macintosh et au choix 525 ou 3'S pour 
l'Apple //. 


La version Apple // fonctionne sous 
ProDOS avec tous les volumes 
(disquettes 140Ko, 800Ko, disque 
/RAM, Spcedisk, disques durs…..). 

La version Mac fonctionne avec tous les 
supports, tant en MFS qu'en HFS. 

CLV_POMS : 200,00 F TTC, câble de 


liaison 225,00 F, bon de commande 
page 74. 
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LA NOUVELLE REVUE 
DES FANAS DU 
MACINTOSH 


C'est LA NOUVELLE REVUE de l'utilisateur pointu de “Macintosh. 
| C'est l'espace où les utilisateurs de 4D, Excel, Writer +, Jazz et TK Solver se retrouvent. 
C'est le magazine de celui qui veut se dégourdir les doigts et les neurones sur le clavier, 
avec les “tutorials" en Pascal, Assembleur, "C", Lisp et Modula. 
C'est la revue où vous pouvez écrire si vous avez une belle réalisation d'application à votre actif, 
c'est Votre revue disponible dans les kiosques. 


mak fan BP 33, 94471 - BOISSY Cédex Tél. : 45 99 02 10 





SOMMAIRE DU N° 4 (64 pages) 
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DESKTOP PUBLISHING TUTORIAL : ASSEMBLEUR 68000 
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bulletin d'abonnement (guietin 4 recopier ou 4 photocopier) 
à retourner à: MakK fan BP 33, 94471 - BOISSY Cédex 
Q Oui, je m'abonne pour 1 an [8 numéros] à partir du N°... 
au prix de 260 F au lieu de 280 F 
QG Abonnement de soutien : 350 F (8 numéros) 
Frais de poit inclus - Étranger : 45 F le numéro. 


VENTE AU NUMÉRO. 5 N°1 CO N2 au pnxunitare de 30 F (40 F pour l'Étranger). 
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ci-joint un chèque de... FF à l'ordre de MaKk fan 
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Éditorial 


Une fois n'est pas coutume, voici en couverture — et sur 
fond de loisirs #estivaux -— une illustration du 
fonctionnement de deux programmes que vous pourrez 
trouver dans ce numéro : Schémateur, volumineux, 
dans le domaine de la création graphique et Peeks/Pokes 
longs qui en fait voir de toutes les couleurs — ou presque 
— sur l'Apple IIGs et derrière le logo “Pom's”. 


Pom's poursuit sa lancée dans l'exploration des voies 
communicantes en vous proposant trois disquettes 
éditées en dehors des pages de la revue : 


InterPom's - le programme qui, depuis le numéro 28, 
relie vos Apple || etlou Macintosh par téléphone via 
Minitel — a reçu de nombreuses améliorations dans la 
version 2, version capable de communiquer de la même 
manière avec les micros IBM® et compatibles. 


CLV_Ponv's vous est proposé pour répondre aux besoins 
de nombre de lecteurs abonnés à CalvaCom. Que se soit 
pour Apple |} ou Macintosh, CLV_ Pons se présente 
sous la forme d'une application autonome et est 
compatible ‘toutes configurations”. 


Enfin, un éditeur vidéotex en CP/M, pour les Apple /| 
munis d'une carte 80 colonnes ainsi que d'une carte Z80. 


Communiquer n'a pas été facile pour tous nos lecteurs ; 
vous êtes nombreux à avoir attendu longtemps -— parfois 
un mois — la réception de votre câble Apple/Minitel 
décrit dans les numéros 27 et 28. En effet, nous avions 
envisagé la distribution de ce type de câble comme un 
service aux lecteurs qui n'avaient pas la possibilité 
d'effectuer la réalisation eux-même, or, la parution 
d'articles dithyrambiques dans d'autres pages que celles 
de Pom's nous a valu un afflux de commandes auquel 
nous ne nous attendions pas. Tout est désormais rentré 
dans l'ordre et nous prions ceux d'entre-vous qui ont 
attendu de bien vouloir nous excuser de ce retard 
regrettable. 


Pour revenir au numéro 31 proprement dit, et sans aller 
jusqu'à décrire chaque article (il y en a beaucoup et ce 
serait trop long pour un éditorial !), on peut signaler la 
présence de trois bancs d'essais dont deux ‘hard’ pour 
l'Apple /] : la carte vocale Valentine et le ‘disque-RAM' 
Speedisk. Le banc d'essai “soft” est celui de Writer +, 
traitement de textes pour Macintosh. 


Hervé Thiriez 








Peeks et Pokes longs 
sur Apple TIGS 


«3 Applesoft semble 
bien perdu devant 
254 des 255 bancs 
de 64Ko du IIGS. 
En cffet, comment accéder 
depuis le Basic à la R@M en 
page 255, à la page Super 
Haute Résolution en page 
225 (adresses 14 753 792 à 
14778 367) par exemple ? 
La petite routine présentée ici dote 
le Basic de PEEK et POKE 
longs, c'est-à-dire accédant à 
l'ensemble de la mémoire. Deux 


programmes de démonstration en 
illustrent les possibilités. 





Mode d'emploi 


La routine s'installe à l'adresse 
$300, mais ne demande qu'à être 
assemblée ailleurs en cas de 
besoin. 


L'initialisation se fait en mode 
direct par : 


— PIC.POC 
et dans un programme par : 
PRINT CHR$(4)"-PIC.POC" 


Voici la syntaxe des commandes 
disponibles : 


& PEEK page, adresse, var 


Page est le numéro en décimal du 
banc où la lecture se fera. 


Adresse est l'adresse en décimal 
dans ladite page. 

Var% est la variable entière qui 
recevra la valeur de l'octet 
souhaité. 

Par exemple : 


& PEEK 255, 65535, GF% 


affectera à GF% la valeur de la 
dernière adresse mémoire. 


& PEEK 1-1,MLI,A1%(2) 


affectera à la 3ème variable du 
tabieau A1% la valeur 76 siona 
définit MLI=48896 ($BFO0O0) et 
que ProDOS est actif. 


Page supérieure à 255 et adresse 
supérieure à 65535 conduisent à 
un «]llegal quantity error» mérité. 
Si la variable réceptrice n'est pas 
entière (%), l'utilisateur sera 
gratifié du «Type mismatch 
error». 


& POKE page, adresse, valeur 


Même principe pour Page et 
Adresse ; Valeur sera comprise 
entre O et 255 sous peine de 
message d'erreur. 


Des exemples 


Le programme LIT.MESS.GS 
est une illustration du PEEK : il 
lit et affiche les messages stockés 
en page 255 (ROM), 
particulièrement ceux affichés par 
le tableau de bord. 


Cette zone est visée par un 
pointeur dont l'adresse est 
donnée en $E100C0/E100C2. 
Sous réserve de bien respecter les 
conventions “poids fort à 1, 
poids fort à 0”, il suffit de 
changer cette adresse et le GS 
affichera votre table de message 
en français par exemple. 


Le programme GSCOLOR ne fait 
qu'un dégradé de couleurs en 
page Super Haute Résolution, 
semblable à celui de la couverture 
de ce numéro. Ïl prend son temps 
(9 minutes en mode rapide...) 
mais illustre le fonctionnement du 





Christian Piard 


&POKE par 64000 points à 
l'écran. On peut rappeler 
succinctement la structure d'une 
page SHGR. 


La SHGR 


Une telle page se situe dans la 
page $E1 (225) entre $2000 et 
SOFFF. 


de $9E00 à $S9FFF 


16 palettes de 16 couleurs 
chacune composée de 2 octets ou 
32 bits: 


4 bits pour le vert 
4 bits pour le bleu 
4 bits à O 

4 bits pour le rouge 


On obtient un jaune vif avec : 
FOOCF c'est-à-dire seize 16èmes 
de vert, zéro l6ème de bleu et 
seize l6èmes de rouge. 


de $9D00 à $59BC7 


200 octets (1 par ligne à l'écran) 
dont les 4 bits de poids faible 
donnent le numéro de la palette 
qui sera utilisée par la ligne 
concemée. 


Le bit 7 sera à O si la ligne 
comprend 320 point, c'est le cas 
dans notre exemple. 


Le bit 6 à 1 provoquerait une 
interruption en fin de ligne pour 
changer une couleur de la palette 
avant affichage de la ligne 
suivante par exemple. 


de $2000 à $9CFF 


32000 octets pour les 64000 
points à l'écran (200 lignes de 
320 pixels). Chaque point est 
représenté par un demi octet qui 
indique, de O à 15 le numéro de 
sa couleur dans la palette réservée 
pour la ligne considérée. ar 
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Source PIC.POC.S 
Assembleur ProCODE 


———————————————————— 





0 54 JSR  FRNUr + 2ème parèämétré sur deux octets 
DE M SAR NN Pan dope Se Le None je Ne 95 JSR  GETADR ; c'est l'adresse 
2 * PEEK & POKE LONGS SUR APPLE [IGS 56 LDX  $50 ; on prépare l'adresse du Peek 
PU TROT PRRNR SE PRE NE FRERES 57 STX ADRESSE ; ou du Poke 
4 58 STX ADRESSE! 
5 Dons IC Le 59 STA ADRESSE +1 
6 ; 60 STA  ADRESSEI+] 
7 AMPERV , $3FS ; vecteur & 61 BIT DP PEEK ; est-ce Peek 2? 
8 FRNUM < $DD67 ; caicuie une formule 62 BMI S_PEEK 
9 CHKCOM = $0EBE ; virgule ? 63 
19 GETADR . $E752 ; FAC -> entier 64 JSR GETBYTC ; Jème paramètre : octet à peker 
11 GETBYTC = $E6FS5 ; formule sur un octet 65 STX A_POKER 
12 PTRGT = $DFE3 ; recherche d'une variable 66 
17 MISMATCH = $DD76 ; message type mismatch 67 JMP  LPOKE ; on poke 
14 VARNAM = $81 ; nom de 13 variable 68 
15 VARPNT = $83 ; pointeur sur sa valeur 69 S_PEEK JSR CHKCOM : virgule 7 
F6 70 JSR PTRGET + cherche peitnteur sur variable 
17 ORG 5300 5 STA VARENT ; ie sauve 
18 72 STY VARPNT4I 
19 LDA AMPERV4#1 ; vecteur déjà installé ? 73 LDA  VARNAM ; da variabie doit être entière 
20 @MP $<DEBUT : 74 AND VARNAM4I C3, CA$ eu D#(4) par exempie 
21 BNE INIT 75 BMI  J1 
22 LDA AMPERV52 76 JMP  MISMATCH ; sinon Type mismatch error 
23 CMP  #>DEBUT Le 
24 BEC INITOK 78 J1 SR LPÉEK ; on va chercher l'octet 
25 INIT LDA AMPERV+*LI ; non, on seuveGarde l'éventuel 79 LDY #1 ; et on le stocke à l'adresse 
26 STA  ANCVEC ; ancien vecteur 89 STA  (VARPNT),Y ; de la variab!e choisie 
27 LDA  AMPERV+2 81 DEY 
28 STA ANCVEC+1 82 TYA 
29 LDA #$4C ; et on Installe le neuvezau 83 STA  {VARPNTI,Y 
30 STA AMPERŸV 84 RTS 
31 LDA  #<DEBUT 35 
32 STA  AMPERV#1 86 AUTRE JMP  (ANCVEC) ; saute à l'ancien vecteur 
33 LDA #>DEBUT 87 
34 STA  AMPERV+2 88 LPOKE  DF& $18 s LC 
35  INITOK RTS 89 DFB $°6 ; XCE passage en 16 bits 
36 90 DFB  $A9 ; LDA donnée 
37 BESUT ctsP  8$B9 ; est-ce POKE 91 A P@KER DFB © 
38 BEC POKE 92 DFB $8F ; STA $000000 
39 CMe  #ÿE2 ; est-ce PEEK 93 ADRESSE DFB 0,0 î 
40 BNE AUTRE 94 N PAGE DFB © ‘ 
41 95 FIN DFB $38 ; SEC Retour au 6502 
42 PEEK LDX #$FF ; c'est PEEK 96 DFB STE ; XCE 
43 STX DP_PEEK ; en Positlonne un drapeau 97 DFB $60 5 RIS 
44 BMI P@KE1 98 
45 99 LPEEK DFB $18 ; CLC 
46 POKE LDX #0 ; c'est POKE 100 DFB $rB ; XCE 
47 STX OP PEEK 101 DFB SAF ; LDA $000000 
48 POKE1 JSR GETBYTC ; ler parañètre = 1 octet 102 ABRESSE1 DFB 0,0 
48 STX N_ PAGE ; c'est le n° de page de 64Ke 103 N_PAGEL DFB © 
50 STX N_PAGEI 104 OFB $80,$F5 ; BRA FIN 
51 105 
$2 JSR CHKCOM : virgule ? 186 ANCVEC DA  $FF58 ; RATS par défaut gs 
53 107 BP PEEK DS 1 11gS 
Programme LIT. MESS GS Efface l'ensemble SHGR, routine 
É : SHLAM 
17 FOR I = 1 TO LEN (A$): POKE 511 + I, AÀ 
À PRISONS RICE SC ( MIDS (A$,I,1)) + 128: NEXT : POKE 
10 FOR I = 35374 re &  PEEK 255,1,G 72,0: CALL - 144 
NIGY A GR T8 (G$ > 127): ON NOT G 20 REM Construction das palattes 
% GOSUB 100: IF G$% > 31 THEN PRINT CH 30 FOR I = O TO 30: & POKE 225,40448 + I, 
= HALO 240:I = I + 1: & POKE 225,40448 + I,I 
30 HER / 2: NEXT 
ou 40 FOR I = O0 TO 30: & POKE 225,40448 + I 
100 PRINT : RETURN ProDOS LAID AGO AN E BEL EN LE 1226) CPORES DS 
5,40498 + I + 32,15: NEXT 
50 FOR I = O0 TO 30: & POKE 225,4049498 + I 
Pro ramme GSCOLOR + 64,I / 2:I = I + 1: & POKE 225,40448 
g + I + 64,15: NEXT 
Temps d'exécution : 9 mn. 60 FOR I = O0 TO 30: & POKE 225,40448 + I 
1 PRINT CHRS$S (4])]"-PIC.POC + 96,15:I = I + 1: & POKE 225,40448 + 
10 U = PEEK (49204): POKE 49204,0: REM 96, (31 - I} / 2: NEXT 
Sauvegarde da la couleur das 70 FOR I = O TO 30: & POKE 225,40448 + I 
bords, puis mise au noir + 128,15 + I * 8:I = I + 1: & POKE 225 
15 POKE 49193,161 , 90448 + I + 128,0: NEXT 
16 AS = "E1/9 N O<2000.9FFFZ N 5<9D60. 9DC7Z 72 FOR I = O TO 30: & POKE 225,40448 + I 


N O<9ECO.9EDFZ N 0/9 N D823G" : REM 
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+ 160,240 + (30 - I} / 2:I = I + 1: & 











POKE 225,40448 + I + 128,0: NEXT 
POKE 225,40448 + I, 78 


73 FOR I = O0 TO 30: & 


240: & POKE 225,40448 + I + 192,240:1 + 160,240 - 
ENT: HENT IG CPOKRE. 225, 4044826) TE Per 
POKE 225,40448 + I + 192,I / 2: NEXT ET I + 1: 
74 FOR I O0 TO 30: & POKE 225,40448 + I ,0: & 
+ 32,(30 - I) * 8: & POKE 225,40848 + : NEXT 
Ta 32 DITO2,1130 NE) A UBET = TIR Ts 100  REM 


POKE 225,40448 + TI + 32,15: 
5740448 +" 1 4.32 ÆNTO2/MISENEXT 
POKE 225,40448 + I 


7151 FORT =" 0, TO 30.4 





40448 + 


& POKE 22 110 FOR I = 


+ 64,I / 2: & POKE 225,40448 I + 64 200 REM 

+ 192,1 / 2:I = I + 1: & POKE 225,4044 210 FOR A = 

8 + LT + 64,15: & PCKE 225,40448 + : + 560 

64 + 192,15: NEXT 220 FOR 8 = 
76 FOR I O0 TO 30: &£ POKE 225,40448 + I 230 FOR C = 

+ 96,15: & POKE 225,40448 + I + 96 + 1 240 AD = À + 

92,15:1 = I + 1: & POKE 225,40448 + I + B r 16 

+ 96, (31 - I} / 2: & POKE 225,40448 + 245 &  POKE 

LIVE Le LOL AST=L) AS LENNEXT 290 CNEXTY: 
77 FOR I 8 TO 30: & POKE 225,40448 + 1 999 PRINT 


FULL; ES y ABC 


HOL2OATOTI2,415 € I. ENG ET 
OKE 225,40448 + I + 128,0: 


POKE 225,40448 + I 
TL EE D 


1000 


PCKE 225, 


+ 128 + 192,0: NEXT 
FOR I = O0 TO 30: & 


POKE 225,4C448 : I 
f30:= TI) 7 42574  POKE 225,4 


0448 + I + 160 + 192,240 + (30 - I) / 2 
&  POKE 225,40448 + i - 128 
POKE 225,40448 + i + 128 + j92,0 


Installation des pointeurs 

40192 TO 40192 + 176 STEP 16: 

FOR ŸJ = O0 TO 15: & 
40192) / 16: NEXT 


POKRE 225T + AL 
: NEXT 


Remplissage da la page 
BT92 TO 2192 5 A:2560:STEP*2 


QG: TOTS 
0 TO 159 
B-ACT GO FC TE 


POKE 225, AD, B 


225,AD + 15360,8 + B * 16 
NEXT : 
CHRS 
POKE 49204,U: REM Restaure la 
couleur des bords 


NEXT 
(7): GET R$: PCKE 49193,65 








BRécapitulation 
PIC.POC 


Après aveir saisi cette récapitulatien 
seus meniteur, veus la sauvegarderez 
par : BSAVE PIC.P@C, A$300,LSA4 


0300:AD F6 03 C9 2A DO 07 AD 


0308:F7 03 C9 03 FO 1B AD F6 
0310:03 8D Ai 03 AD F7 03 8D 
0318:A2 03 A9 4C 8D F5 03 A3 
0320:2A 8» F6 03 A9 03 8D F7 
0328:03 60 C9 B9 FO OB C9 E2 
0330:D0 59 A2 FF 8E A3 03 36 
0338:05 A2 00 8E A3 03 20 FS 
0340:E6 8E 95 03 8E 9E 03 20 
0348:BE DE 20 67 DD 20 52 E7 
0350:A6 50 8E 93 03 8E 9C 03 


Le Basic et l'heure 


En Basic sous ProDOS, il 
existe un moyen simple 
d'obtenir l'heure dans le but de 
mesurer un temps d'exécution 


par exemple. Nul besoin 
d'appeler une commande 
externe ou d'écrire la 


mini-routine qui appellerait 
GET TIME et remettrait à 
l'heure les octets $BF90 à 
$BF93. 


Il suftit d'utiliser la routine de 
fermeture des fichiers du 
Basic.Interpreter 1.1 qui se chargera 
du travail : 


faire CLOSE ; l'octet 49043 donne 
alors l'heure, et le 49042 les 
minutes. 
Par exemple, le programme : 
10 HOME 
20 PRINT CHRS (4) "CLOSE 
30 VTAB 10: PRINT PEEK(4 
9043)" heures "PEEK ( 


4904 2)" minutes 
40 GOTO 20 


affiche l'heure en permanence. 
Bien sûr, il faut une carte horloge 
dans l'appareil ; celle intégrée au 


GS ne sera activée qu'avec 
ProDOS 1.2 et suivants. _à 


0358:8D 94 03 8D S8D 03 2C Z3 
0360:03 30 09 20 FS E6 8E 8: 
0368:03 4C 8E 03 20 BE DE 20 
0370:E3 DF 85 83 84 84 AS 81 
0378:25 82 30 03 4C 76 DD 20 
0389:99 03 AO 01 91 83 88 88 
0388:91 83 60 6C A1 03 i8 FB 
0390:A9 00 8F 00 00 00 38 FB 
0398:60 i8g FB AF 00 00 00 80 
03A0:F5 58 FF 00 


Un conseil ? 
Un problème ? 
Un souhait 7... 


24 heures sur 
24, laissez 
voire 
message sur 
CAIVa Om: 


Le code 
d'abonné de 
votre revue, 
cest empll”. 








Porm's n° 31 





Gi TC phes € 


Claude-Lucien CAUET 


Ce programme se compose de 
deux parties : 


+ le programme SCHEMATEUR 
permet de dessiner des figures 
en haute résolution (rectangles, 
cercles, ellipses...) avec des 
textes incorporés (y compris un 
jeu de caractères mathématiques). 
Par ailleurs, il est possible de 
remplir les surfaces avec des 
motifs variés, de déplacer l'image 
(ou une partie) dans toutes Îles 
directions : centrage, mixage, 
image géante de trois écrans. On 
peut enfin travailler simuita- 
nément avec deux images 
superposées, les mettre en 
réserve (jusqu'à cinq en mémoire 
auxiliaire), inverser la couleur... 
Bref, un programme ambitieux. 


+ le programme FONCTION 

permet de tracer le graphe de 
fonctions mathématiques de tous 
types, ou leur dérivée, en 
choisissant à loisir l'échelle et la 
fenêtre de visualisation. Les 
tracés sont continus ou pointillés, 
et leur création peut être 
accélérée. Trois écrans gra- 
phiques sont disponibles, dont 
deux superposables. Enfin, une 
fonction est acceptée même dans 





un domaine où elle n'est pas 
définie. 


Ces deux programmes 
communiquent sans problème 
leurs images graphiques, qui 
peuvent être imprimées 
directement sur ImageWriter 
grâce à l'utilitaire GRAVURE. 


Configuration 


Un minimum de 64Ko de 
mémoire est nécessaire ; par 
ailleurs, une paire de ‘paddles’ 
(ou un joystick) est recomman- 
dée. Le programme est 
initialement conçu pour un Apple 
lle ou //c mais doit pouvoir 
tourner sans modification sur un 


][+. 


L'essentiel des modules sont 
écrits en Applesoft et donc 
facilement modifiables. Plusieurs 
fichiers en assembleur complètent 
l'ensemble pour assurer les 
fonctions délicates ou qui 
nécessitent une grande vitesse. 


GRAPHISME fonctionne sous 
DOS 3.3 ; son adaptation à 
ProDOS nécessiterait de revoir 





Strophoiïide 





RCTD=-CCOSC2XT) & 


les fonctions de gestion des 
images en mémoire (actuellement 
conservées dans la carte langage 
et l'éventuelle mémoire auxiliaire 
de la carte 80 colonnes étendues). 


Le démarrage de GRAPHISME 
s'effectue par un simple : 


RUN GRAPHISME 


qui amène sur un premier menu 
proposant l'accès aux deux 
principaux programmes, ainsi 
qu'une option de configuration : 
existence de paddles et nombre de 
lecteurs de disquettes. 


Utilisation 


En lançant le programme, on se 
trouve placé en mode graphique 
et un point lumineux apparaît au 
centre de l'écran. 








Sa 





Pomsn°3l 





10 





La touche Q peninet d'accéder au 
menu principal permettant la 
lecture/écriture d'une image 
graphique, le catalogue d'une 
disquette et de quitter 
SCHEMATEUR. 


Ctrl-Q permet d'obtenir à l'écran 
un rappel des fonctions 
disponibles. 


Déplacement du curseur 


Le curseur graphique se déplace 
sans tracer grâce aux flèches du 
clavier, par saut de douze 
positions. En appuyant 
simultanément sur @ (ou le 
bouton adéquat du joystick), le 
déplacement s'effectue point par 
point, donc beaucoup plus 
lentement. À l'inverse, l'appui de 
G pennet de se déplacer par saut 
de quart d'écran. 


La touche TAB (Ctrl-I) permet 
d'activer (ou de désactiver) le 
mode joystick. Le déplacement 
peut alors être effectué beaucoup 
plus rapidement vers la position 
voulue, mais avec moins de 
précision. Il sera donc commode 
d'utiliser alternativement ces deux 
modes. 


Commandes globales 


DEL efface l'écran graphique. 

K définit une couleur : 0 à 7 si 
vous utilisez réellement la 
couleur, ou N,B,G pour 
noir, blanc et gris respec- 
tivement avec un moniteur 
monochrome. 

I inverse totalement la couleur 
de l'écran. 

W échange le dessin courant 
avec un dessin stocké en 
carte langage. 

U  superpose le deuxième dessin 
au dessin courant. 


Commandes de 
positionnement 
et de tracé 


X marque la position du point, 
comme étant le début du 
tracé. Par suite, le dernier 
point du tracé deviendra le 


nouveau point de départ. 


Z marque de manière perma- 
nente le point courant comme 
étant le point de départ de 
tous les tracés suivants. Utile 
pour tracer des cercles 
concentriques ou des droites 
concourantes. 


ESPACE trace un segment de 
droite entre le point de départ 
défini et le point actuel. 


H trace un segment horizontal 
entre le point de départ et la 
verticale passant par le point 
courant. 


V idem mais trace un segment 
vertical. 


R trace un rectangle dont les 
points opposés sont le point 
de départ et le point courant. 


C trace un cercle centré sur le 
point de départ et dont la 
circonférence passe par le 
point mobile. 


D idem mais trace un disque 
plein. 

A trace lentement un cercle dans 
le sens des aiguilles d'une 
montre, interruptible par une 
touche quelconque afin 
d'obtenir un arc de cercle. Le 
tracé est définitivement arrêté 
par RETURN. 


E idem mais trace lentement 
une ellipse centrée sur le 
point de départ et dont les 
demi-axes sont donnés par la 
position du point courant. 


Commandes de 
remplissage 


S remplit une surface de fonne 
quelconque, définie par la 
position du point courant et 
délimitée par des limites 
pleines (pas de pointillé). Le 


remplissage peut être 
interrompu par une touche 
quelconque. 
précise. «le: \mode ‘de 
remplissage : 


(1emplissage complet), 
(lignes verticales), 

(lignes horizontales), 

(points régulièrement espa- 
cés), 

(quadrillage), 


© TI<O % 





(hachures penchées à droite), 
(idem à gauche), 
(losange). 


Le pas peut également être 
défini, ainsi que l'épaisseur 
des traits. 


L indique si le remplissage est 
limité par des points allumés 
ou éteints, ainsi que le mode 
de superposition (par la 
commande U). 


ue ee AS 


On peut gommer par les touches 
G (gomme horizontale) ou Y 
(gomme verticale), jusqu'à la fin 
de ce mode par RETURN. 


Commandes de texte 


On entre en mode texte par la 
touche T, et un curseur apparaît. 
Celui-ci se déplace avec les 
iQ ainsi qu'avec les touches 


On peut superposer deux 
caractères en revenant en arrière 
après le premier caractère (accent 
circonflexe, tréma). 

L'appui simultané de G fournit 
un jeu de caractères mathéma- 
tiques et grecs. 


DEL efface un caractère. ESC 
donne un curseur mort : il 
n'avance pas (utile pour le 
pivotement), 


Ctrl-A agrandit le caractère, 
Ctrl-Z le réduira (s'il a été 
agrandit). 


Enfin, Ctri-W fait pivoter le 
caractère d'un quart de tour. On 
sort de ce mode texte par 
RETURN. 


Déplacements du dessin 


La touche M active le mode 
déplacement : les flèches 
permettent alors de déplacer le 
dessin, de huit points en huit 
points. 


L'appui simultanée de la touche 

permet d'enrouler le dessin : 
horizontalement, il roule sur une 
largeur égale à deux écrans ; 
verticalement, sur une hauteur 
d'un écran et demi. Soit un total 
de trois écrans. La touche W 
reste bien sûr opérationnelle pour 
observer la seconde partie de 
l'image horizontale. On ressort de 
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ce mode par Retum. 


Définition de fenêtre 


F permet de définir le coin d'une 
fenêtre dont le coin opposé a été 
défini par la touche X. 


Plusieurs options sont alors 
possibles : 


* effacer la fenêtre (touche G) ; 
* la remplir unifonnément (R) ; 
* effacer l'extérieur (D) ou 

° encadrer la fenêtre (E). 


La touche M permet de déplacer 
la fenêtre en superposition sur le 
dessin en cours ; la barre 
d'espace perinet ensuite de figer 
le résultat. Dans ce mode, il est 
recommandé d'utiliser la touche 


Stockage d'images en 
mémoire 


La touche B échange le dessin 
courant avec un dessin stocké en 
mémoire. 


Les fonctions suivantes sont 
disponibles si l'on dispose d'une 
carte 80 colonnes étendues 
(128Ko) : 


O permet d'observer les dessins 
stockés (jusqu'à 5) ; Return 
permet de sortir de ce mode 
d'observation. 


N échange le dessin courant avec 
le dernier dessin visualisé par ©. 


J permet de fixer le nombre 
d'images stockées. 


Le programme 
FONCTION 


Trois types de définitions de 
fonction sont disponibles : 


- fonction cartésienne : y = f 
G) 

- fonction polaire : R = f (T) 
où T est la variable angulaire 
en radians, et R le rayon 
vecteur correspondant 


- fonction paramétrique : x =f 
(t) et y = g (t) où x et y sont 
fonctions d'une variable t. 

Il est possible d'incorporer un 

paramètre M dans les équations, 

afin de tracer une famille de 


courbes sans ne faisant varier que 
ce paramètre. 


Programmation des 
fonctions 


Les symboles suivants sont 
disponibles : 

+,-—,*,/et 1 (élévation à la 
puissance) ; ABS,INT,SQR, 
LOG,EXP,SIN,COS, 
TAN, ATN sont semblables à 
leur définition en Applesoft. 
FNLD (logarithme décimal), 
FNSH,FNCH et FNTH 
(sinus, cosinus, tangente hyper- 
boliques) sont par ailleurs 
disponibles. 


N'oubliez pas d'utiliser les 
parenthèses selon les règles 
habituelles de l'algèbre. 

Par la suite, il est seulement 
nécessaire de définir les bomes 


du graphe (en utilisant 
éventuellement les valeurs par 
défaut proposées). 


Options disponibles au 
menu 


P  pennet d'obtenir la courbe en 
pointillé 

D pour tracer la dérivée de la 
foncuon 


S évite de dessiner les axes 


C encadre le graphe et 
RETURN visualise l'écran. 


Ensuite, les touches suivantes 
déclenchent l'opération : 


1 trace le graphe après avoir 
effacé l'écran, 

2 évite l'effacement, 

3 autorise la modification des 
valeurs, 

4 permet 
fonction, 

5 sauve le graphe sur disque 
(par exemple pour le 
reprendre sous SCHEMA- 
TEUR), 

6 charge un graphe du disque, 

7 donne le catalogue, 

8 retourne au menu. 


de changer de 


Options disponibles au 
graphe 


Pendant le cycle de création du 


graphe, les touches disponibles 
sont : 


Return interrompt le tracé, 

C poursuit le tracé, 

ESC saute dix points de calcul 
et permet ainsi un tracé plus 


rapide, 

TAB revient en arrière de vingt 
points (corrige l'effet 
d'ESC): 


Une fois le tracé terminé, on 
dispose de : 


Return revient au menuinitial, 

W _ échange l'écran courant avec 
un deuxième écran 
mémorisé, 

U  superpose ces deux écrans, 

B échange l'écran courant avec 
un écran en 
secondaire 

T inscrit du texte sur l'écran: 
pratiquement toutes les 
sous-options disponibles 
avec SCHEMATEUR sont 
disponibles ici. De plus 
Cul-F affiche l'équation sous 
la position du curseur. 


mémoire 


Le programme 
GRAVURE 


Le programme GRAVURE 


permet d'imprimer, sur 
ImageWriter, les images 
graphiques créées par 


SCHEMATEUR ou FONC- 
TION. 


Deux hauteurs d'image sont 
disponibles, ainsi que l'inversion 
des couleurs. On peut également 
jouer avec un jeu de déformations 
horizontales et le positionnement 
de la feuille de papier et de la tête 
d'écriture. 


Fichiers sur la disquette 
Pom'’s 


Un grand nombre de modules 
forment l'ensemble de 
GRAPHISME. 

Seuls les sources qui n'ont jamais 
été publiés se trouvent sur la 
disquette. 


GRAPHISME initialisation du 
logiciel, gestion de la 
configuration 
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CONF.C module de configu- 
ration (manuel de la carte 80 
colonnes) 

HEL..C module de nettoyage de la 
mémoire auxiliaire 

T.HEL source de HEL.C 

MENU programme général de 
menu (ne doit pas être 
verrouillé car il peut 
s'auto-modifier) 

SCHEMATEUR le programme 

SHEM.C module assembleur 
d'édition des graphiques 

T.SHEM source de SHEM.C 

CARAC.SH table des jeux de 
caractères 


Programme 
FONCTION 


10 DEF FN F{T) * X: REM ‘“ 2: REM 1600 
- X “ 2}: REMN REM rrrrrrrespvaucece 





LRLELLRLRLRELRLEREELELLELLLELLLELLELE) 

20 DEF FN G{T) = T: REM : REM J: REMT 
5: REM “ 2): REM " T: REM 2: REM °°? 
nn nommant nant 
ÉÉLLLLLLLELELELL LIST LIL LL 11 
ont smnnnnnnnnnesents 
CÉLEEZLLLLLLLLLLLL LIL LL LL LL LL 1117 
corprosssoseeecorererrsresesressecece 

30 FOR 1 = 1 TO 3: READ INS$(1): NEXT 

40 D$ = CHR$ (4) 

50 JF P£EK (103) + 256 * 

60 POKE 103,1: POKE 104,96: 

70 PRINT D$"RUN FONCTION" 

80 IF PEEK (236) GD?O 140 

90 AL = 6000: POKE 233, INT (AL / 256): 
256 ” ( INT (AL / 256)) 

100 PRINT DS$"BICAD FONC.C°® 

110 PRINT D$"BLOAD CARAC-SH,A°AL 

120 PRINT D$"BLOAD ERREUR, A931° 

130 POKE 236,1 


140 AJ = 776:A2 = 769:A3 = 92]:14 = 853:A5 « 878 


PEEK (104) = 24577 GOTO 80 
P@KE 24576,0 


POKE 232,AL - 


CHARGE.OBJ module de 
chargement rapide (Pom's 4 
modifié par Pom's 19) 

FONCTION 

FONC.C module assembleur de 
tracé de courbes 

T.FONC source de FONC.C 
(adapté de G.Mauffrey dans 
Pom's 11) 

ERREUR module classique de 
gestion d'erreur en Applesoft 

GRAVURE 

GRAV.C module d'impression 

T.GRAV source de GRAV.C 
(adapté de l'ImageWriter 
ToolKit) 






460 REN 

470 VTAB VT: HTAS HT: 
AB HT: PRINT V: RETURN 

VAL (VS): RETURN 

+* TABLEAU DONNEES ** 

JF REP = 2 THEN PRINT “ANGLE ->"; 


Répartitien en % 
industrielle éndisle en 


(Valeur des FRERE FIRnS minières et manuFac- 
turières additionnées) 





EXEMPLE.PIC image graphique 
exemple illustrant le jeu 
altemé de caractères 


Conclusion 


GRAPHISME se veut être un 
logiciel complet, à vocation 


quasi-professionnelle ; il devrait 
rendre de grands services à tous 
ceux qui manipulent fréquemment 
à la fois des graphiques et des 
fonctions mathématiques, et ont 
toujours regretté de ne pouvoir 
les manipuler simultanément. 











de 13 Puissance 
19886 : 





9 SAISIE DES DONNEES °° 


INPUT °°:V$: J£ VS = °° THEN VTAB VT: HT 


GOTO 520 


ATAB i4: PRINT "T minime: "TD: HTAB 14: PRINT " 


“NOMRRE DE POINTS:°NP 


540 VTAB VF: PRINT "=—----—vummeenf£NETRE--=xmmmm mme, names": 


- 558: 


PRINT °X minime:"*X1;: 


FOR K = j TO 40: HTAB K: PRINT “a";: N 


HTAB 20: PRINT "Y minime 


150 SC = 1: SCALE= SC:RO = 0: ROT= RO! HCOLORæ 3 480 V = 
160 VP = J:VN = jO:VF = 12:VM = 17:VO = IB:NP = 280:X1 = = 14:X 490 REM 

2 = 14:Y1 m — 9,6:Y2 = 9.6:TD m + 10:TF = 10 500 VTAB VP # 1: 
170 S = O:AX = 1:1M = 0:CO = O;NM = O0:M = 1:WW = O:NL = ] S10 PRINT "PARAMETRE ->" 
180 PL = O0: 1! PEEK (214) THEN PL = 1! 520 VTAB VE + 1: 
190 ONERR GOTO 2970 T maxima:"TF 
200 GOSUB 2000: GOTO 1010 530 VTAB VN: PRINT 
210 REM *= CALCUL DES COORDONNEES” ” 
220 T4 = T: GOTO 250 VTAB VM: CALL 
230 N = W + 1: IF W > 2 » WW + 1 THEN N = O.W = 1 — WW EXT 
240 IF WW = O0 THEN T = T + INC: POP : GOTO 1610 550 VTAB VF + 1: 
250 IF PEEK (49152) > 127 THEN SS = PEEK (49152) — 128: POKE s"YI: 


49168,0: GOTO 400 
260 ON REP GOTO 270,320,360 
270 X = Xi + (T + 1} / EX 
280 Y = FN!(X) 
290 JF NOT DE GO10 310 
300 X = X + 4X2 - XI) / 10000:YA « 
/ 1X2 - X1) 


EN F{X).Y = (YA - Y) ” 10000 


560 RETURN 
570 REN 


PRINT “X maxima:"X2;: 


HTAB 20: PRINT "Y moximo: "2 


*r ENTREE DONNEES ** 


580 VT = VP + L:HT = 23:V = 1D: GOSUB 470:TO0 = V:VT = VP + 2:HT 
æ 23:Vv' = TF: GOSUB 470:TF æ V'TI x TD:T2 = TF 


590 VT = VN:HT = 18:V = NP: 
C = 280 / NP: GOIU 610 


GOSUB 470:NP = V: JF REP « i THEN IN 


600 INC = {T2 - Ti} / NP 


310 1=T:J=m 4Y - Y1) * EY - 1: 
320 Z = FN F'{T) 
330 JIF°ODE THEN T = T *# (T2 - Ti) / 10000:2A = 
— 2) * 10000 / (T2 - T1) 620 EX = 279 / CX:UX = 1: PORKE 33,40 

340 X = Z * COS (T/:1 = EX * (X - X1): IF 1 < O OR I > 280 THEN 630 ZE CX > 40 THEN CX = CX / 10:UX = UX ” 10: GO10 630 

POP : GOTO 1630 640 JF CX < 4 THEN CX = CX * IO:UX = UX / 10: GOTO 640 
350Y = 2" SIN (T)J:J æ EY * (Y — Y1l): RETURN 650 VT = VE + J:HF = 29:V = Yl: GOSUB 470:Y1 = V:YM æ YI + (X2 - 
360 X » FN FÜT}:Y = FN GÎT) X1) * 192 / 280: VIAS VF + d: HTAB 1: CALL - 868: VTAB VF # 
370 1F DE THNT=T +# (T2 - Ti} / 10000:XA = 3: CALL - 868: PRINT °Ponr le meme échelle:Y maxima=®;0.1 * 


RETURN 610 POKE 33,19:VT = VE + 1:HT = [0:V = X1: GOSUB 470:X]1 æ V:VT 
= VE + 2:HT = 10:V = KX2: GOSVB 470:X2 æ V:CX = X2 - XI: IF CX 


FN F{T):2 = {2A < « 0 GOTCO 610 


FN FATJ:YA = EN 


G(T):Y = (YA - Y) / 1XB - X) INT (10 ” YM # 0.5) 
380 1 = EX “ (X - X1): JF 1 < O OR 1 > 280 THEN POP : GOTO 1630 660 VT = VF + 2:HT = 29-V = Y2: GOSUB 470:Y2 = V:CY = Y2 — Yi: 1 
390 J=EY* (Y - Y1) - 1: RETURN F CY < = 0 G010 650 
400 IF SS = 13 THEN TS = T — JMHC: POP :: GOTO 1700 670 EY = 191 / CY:UY = 1 
410 JF SS = 27 THENT = T + 10 * INC: GO10 430 680 IF CY > 40 THEN CY = CY / IO:UY = UY * 10: GOTO 680 
420 IF SS = 9 THEN T = T - 20 * INC 690 IF CY < 4 THEN CY = CY " IO:UY = UY / 10: GOTO 690 
430 IF FT > T2 THEN T = T2 700 HTAB 1: VTAB VF + 3: CALL - 868: PRINT “Unité en abscisse: 
440 IFT<TI THNT=TI ";UX: PRINT "Unité en ordonnée:";UY 
450 POP : GOTO 1610 910 RETURN 
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720 REM 
730 VIAB VM: CALL 
T "=®;: NEXT 
740 VTAB VO: PRINT “1- EFFACER ET TRACER”: PRINT "2- TR 
ACER SANS EFFACER": PRINT "3- MODIFIER LES VALEURS* 
750 VTAB 21: NTAB 1: PRINT °4- CHANGER DE FONCTION": PR 

INT "5-— ENREGISTRER 6- CHARGER®: PRINT “?- IMPRI 


?** TABLEAU OPTIONS °° 
- 958: EORK = ] TO 40: HTAB K: PRIN 


NER 8- CATALOGUE“: PRINT *9- QUITIER LE PROGR 
ARE"; 

760 RETURN 

770 REM ** PARAMETRE ** 


780 VTAB VP: PRINT "SI VOUS VOULEZ UTILISER UN PARAMETR 
E M TAPEZ M (SINON UNE AUTRE TOUCHE):";: GET PRS: [IF 
PR$ < > “M* AND PR$ < > "m* THEN MM = 0: GOTO 795 

7SO01HM = ji 

795 VTAB VP: HTAB l: CALL = 958: RETURN 

800 GOSu8 855: VTAB VP: NTAB 1: PRINT "1- FAMILLE DE CO 
URBES": PRINT *2- PARAMETRE À LA DEMANDE": PRINT “CHO 
IX:":: GET PRS:PR = VAL (PR$S) - 1: IF PR < O OR PR > 
1 GOTO 600 

610 IF PR = O0 GO1U 830 

820 VTAB VP: HTAB 1: CALL 
R DE ‘M':":M: GOTO 850 

830 GOSUB 855: VTAB VP: HTAB 1: PRINT °M minima:"M1: VT 
AB VP: HTAB 16: PRINT "M maxima:"M2: VTAB VP: HTAB 31 
: PRINT "Pas: PM 

840 POKE 33,15:VT = VP:HT = 10:V = MI: GOSUB 470:M1 = V: POKE 3 
3,30:VT = VP:HT = 25: « M2: GOSUB 470:M2 = V: POKE 33, 40:VT 
= VP:HT = 3S:V = PM: GOSUB 470:PM = V 


— 958: INPUT "PREMIÈRE VALEU 


850 RETURN 

855 FOR II = VE TO VP + 3: VTAB 11: HTAB 1: CALL = 868: NEXT : 
RETURN 

860 REM * MESSAGE DEFILANT »» 


870 SPEED= 245:AX = l:CA = O:PO = O:DE = O:DF' æ I:TS = AS(DE'J:N 
$ = **, EUR J = 1 TO 20:N$ = NS + " “: NEXT 

880 M$ = NS + TS + " " 

890 INVERSE : FOR K = 1 TO LEN (M$): VTAB VM: HTA8 5: PRINT M 
ID$S (MS, K, 30} 

900 TC = PEEK (49152): IF TC > 127 THEN POKE 49168,0: SPEED= 2 
55: NORMAL : GOTO 930 

910 NEXT :OE' = ] + DF: IF'OF = DM + ] THEN DE = 1 

920 T$ = AS{DE): GOTO 880 

930 IF TC = ]96 THEN DE = l; GOTO 690 

340 IF TC = 208 THEN PO = J: GOTO 890 

950 JF TC = 211 THEN AX = O0: GOTO 890 

$55 1F TC = 195 THEN CA = ] 

960 IF TC = i4] THEN POKE 49232,0: POKE 49234,0: PORE 49236,0: 
POKE 49239,0: POP : GOTO 1760 

970 IF TC > 176 AND TC < 186 IHEN R = TC — 176: GOTO 990 

980 GOT0 890 

990 FOR K = 1 TO 40: VTAB VN: HTAB K: PRINT "=": NEXT ; 

1000 REM °° DEBUT ** MENU ++ 

1010 HOME : VTAB 2: HTAB 4: PRINT "GRAPHES DE FONCTIONS": VTAB 
3: HTAB 4: FOR 1 = 1 TO 18: PRINT "_“;:; NEXT : PRINT mv 

1020 FOR I = 1 10 3: GOSUB 1100: NEXT se 

1030 1 = 1: INVERSE : GOSUB 1i00: NORMAL 

1040 VTAB 20: PRINT "FLECHES -> CHOISIR 

1050 VTAB 21: GET CARS:CH = ASC (CARS} 

1060 IF CH = 10 OR CH « 8 THEN GOSUB 1100:I = I + 1: INVERSE : 
GOSUB 1100: NORMAL 

1070 IF CH = 11 OR CH = 21 THEN GOSUB 1100:1 = 1 - 1: 

GOSUB 1100: NORMAL 

1080 I CH = 13 THEN HOME : 

1090 GOTD 1050 

1100 IF I = 4 THENI=1 

1110 IF I = OTHENI=3 

1120 VTAB I + 6: HTAB 4: PRINT INS$S(1): RETURN 

1130 REP = 1: ON £ GOTO 1150,1180,1210 

1140 REM ‘’* ENTREE DES FONCTIONS ** 

1150 HOME : HTAB 9: INVERSE : PRINT " FONCTION CARTESIENNE": NO 
RMAL : VTAB 3: PRINT "Y(X)=": GOSUB 780 

1160 HTAB 1: VTAS 3: PRINT "Y{(X)=";: CALI. Al: IF MM THEN GOSUB 
800 

1170 GUS0UB 530: GOSUB 590: GOTO 1240 

1180 HOME : HTAB 12: INVERSE : PRINT * EONCTION POLAIRE ": NORM 
AL : PRINT "{La variable T est l'angle en radians)": VTAB 3: 
PRINT "RIT)=": GOSUB 780 

1190 HTAB l: VIAB 3: PRINT “R(T)=";: CALI Al: IF MM THEN GOSUB 
800 

1200 GOTO 1230 

1210 INVERSE : HOME : HTAB 9: PRINT “ FONCTION PARAMETRIQUE *: 
NORMAL : PRINT "(La varlable T est le parsmètre courant)": VT 
AB 3: PRINT "X{T)m": VTAB 5: PRINT "Y(T)=": GOSUB 760: HTAS 1 
: VTAB 3: PRINT "X(T)mæ®;: CALL A1 

1220 VTAB 5; PRINT "Y{T)=";: CALL A2: IF MM THEN GOSUB 800 

1230 GOSUB 500: GOSUB 580 

1240 GOSUB 730 

1250 GOSUB 870: ON R GOTD 1350,1260,1265,1300,1890,1890,1290,19 
50,1320 

1260 POKE 49232,0: POKE 49234,0: POKE 49236,0: POKE 43239,0: GO 
TO 1360 


RETURN 


RETURN => VALIDER" 


INVERSE 


GO10 1130 


1265 IF 9 = 0 GOT0 1270 
1266 GOSUB 800: IF REP = 1 GO010 1170 
1267 GOT0 1230 


sin x 


1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1390 1 


1400 JG » 


1410 
1420 
1430 
1440 


Dévelerpement limité de 13 Fenctien: 
x?  x3 x  x5 x ... 


aX— — 


21 "ST 4T ST 67 





IF REP = ] THEN GOSUB 590: GOTO 1240 
GOSUB 580: GOTO 1240 

PRINT DS"RUN GRAVURE, DI* 

HOME : GOTO 1010 

REM °° FIN ** 

HOME : PRINT 

PRINT DS$"RLIN MENU, DI" 

REM °° DEBUT DU GRAPHE #* 

HGR : HCOLOR= 3: POKE 49234,0 

IF AX = 0 GOTO 1565 


REM "’°TRACE DES AXES*e* 


O = INT { - XI " EX) 

INT € = Yi * EY) 

IF JO < O0 OR JO > 191 THEN 1490 

HPLOT 0,191 - JO TO 279,191 - JO 

IE JO < 2 TMEN C = JO0:D = 2: GOTO 1460 

IF JO > 189 THEN C = 2:D = 191 - JO: GOTO 1460 


1450 C=2:D=2 


1460 


FOR I = INT (XI / UX) TO INT (X2 / UX): IF 10 #5 I * EX * 


UX < O OR 10 + I “ EX * UK > 279 THEN 1480 


1470 HPLOT 10 + I * EX * UX,191 + C - JO 10 10 s 1 ° EX * UX,19 
i - D - JO 

1480 NEXT 

1490 17 10 < O OR 10 > 279 TNEN 1570 

1500 HPLOT 10,0 TO I0,19] 

1510 JF 10 < 2 THEN À = J0:5 = 2: GOTO 1540 

1520 IF 10 > 277 THEN À = 2:B = 279 - I0: GOTO 1540 

1530 A = 2:B = 2 

1540 FOR J = INT (YI / UY} TO INT (Y2 / UY): IF JO 4 J + EY « 


UY > 191 OR JO + J * EY #* UY < O0 THEN 1560 


1559 


. 
1560 


1565 
0,0 


HPLOT 10 —- A,19I1 + JO - J * EY * UY TO XO + B,191 = JO - Y 
EY * Ur 
NEXT 


IF CA = 1 THEN HPLOT 0,0 TO 279,0 IO 279,191 TO 0,191 20 


1570 REM "**TRACE CE LA FONCTION** 


1580 IF MM = j AND PR = O THEN M = Mi 

1590 IF REP = ] THEN TI œ 1:T2 = 279 

1600 T = TI 

1610 GOSUS 220 

1620 IF J> = O0 ANDJ< = 191 THEN NPLOT [,191 - J: GOTO 169 
0 

1630 XDRAN 98 AT 10,10: XORAN 98 AT 10,10 

1640 T = T # INC: IF T < T2 GOTO 1610 

1650 GOTO 1700 

1660 GOSU8 220 

1670 IE J < O OR J > 191 GOTO 1540 

1675 IF PO THEN HPLOT 1,191 - J: GOTO 1690 

1680 MPLOT TO 1,191 - J 


1690 T = T + INC: 1F°T < T2 GOTO 1660 


1700 
1710 
1720 


IF 19 = O GOTO 1750 
IF NOT PR GOTO i740 


POKE 49235,0: VTAB 21: HTAB !: CALL - 958: VTAB 22: INPUT 


"NOUVEAU PARAMETRE(SINON RETURN) :“:PRS: IF' PR$S = "" THEN GO 
SUB 750: PORE 49234, 0: G010 1750 


1730 M= VAL (PR$S): GOSUB 750: POKE 49234,0:T1 = TD: GOTO 1590 

1740 1F' T > = T2 THEN T1 = TD:M = M + PM: IF M < M2 GOTO 15 
so 

1750 PRINT CARS (7); 


1760 IF PEER (49152 < 128 GOTO 1760 

1770 RR = PEEK (49152} - 128: PORE 99168,0: IF RR = 87 THEN CA 
LL A3: GOTO 1760 

1780 IF RR = 85 TMEN CALL A4: GOTO 1760 

1790 IF RR = 66 THEN CALL AS: GOTO 1760 

1800 IF RR = 84 THEN GOSUB 2190: GOTO 1760 

1810 IF RR = 13 THEN POKE 49233,0: GOTO 1250 

1820 IF RR = 67 THEN T = TS: GOTO 1610 

1830 Go7D 1760 
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1840 REM ‘° ENREGISIRER-CHARGER °° 
1850 IF NOT PL THEN RETURN 


1860 VTAB VO: MTAB I: CALI - 958: PRIN 
T : PRINT "LECTEUR N°:°;:: INVERSE : P 
RINT NL;: NORMAL : CALL — 1008: GET 
CARS: IF CARS m CHR$ 113) THEN RETU 
RN 

1970 IF CAR$ < > “1® AND CAR$ < > "2" 
GOT0 1850 

1880 NL = VAL (CARS): INVERSE : PRINT N 


L: NORMAL : RETURN 
1830 GOSUB 1850 
1900 HTAB 1: VTAB VO + 3: INPUT "NOM DE 
L'IMAGE:";:IMS: IE IM$ = ** GOTO 1990 
1910 PG = ASC { LEFT$S (IM$,1}): IF PG < 
65 OR PG > 90 OOTO 1900 
1920 IFR = 5 THEN PRINT DS*BSAVE"INS"* 
A$2000, L$2000,0";:NL: GOTO 1940 
1930 PRINT DS"BLOAD"IMS",AS$2000,D°NL 
1990 GOTO 1240 
1950 POKE 34,VP - !: HOME : GOSUB 1850: 
PRINT 
1960 PRINT D$"CATALOG,D"'NL: INVERSE : P 
RENT "FIN": NORMAL 
1970 GET CARS: H@ME : POKE 34,0: JF REP 
“ 1 THEN GOSUB 530: GOTO 1240 
1980 Gosug 500: GOTO 1240 
1990 REM ##F@NCTIONS SPECIALES"®°* 


2000 DEF FN SEX} = ( EXP (X}) = EXP ( 
- Xy /2 

2010 DEF FN CHIX) = ({ EXP (X) + EXP ( 
- X)) / 2 

2020 DEF EN TH(X) = -— EXP (= X) / 
EXP (X) + EXP (-X) * 2+1 

2030 DEF FN LD{X) = LOG (X) / LOG (1 


0) 

2040 DM = 3: REM *°NB DE MESSAGES ?*? 

2050 A$(1) = "TAPEZ VOTRE OPTION DE ! À 
9...'P" POUR COURBE EN POINTILLE,..°D 
" POUR OERIVEE..."S* SANS AXES...!'C' 
CADRE .- . 'RETURN' VOIR L'ECRAN" 

2060 A$(2) = "UNE SONNETTE ANN@ONCERA LA 
FIN DU GRAPHE...ON PEUT L'INTERRONPRE 
PAR "RETURN' ET LE CONTINUER PAR ‘C' 
--.'"ESC'" SAUTE 10 POINIS...'TAB'" REVI 
ENT DE 20 POINTS" 

2070 A${3} = "@UAND LE GRAPHE EST INTERR 


OMFU  ‘ T ' MODE TEXTE..." W ' PASSE 
D'UN ECRAN A UN AUTRE...'U" FUSIONWE 
LES DEUX ECRANS..."B' BANQUE ...'RETU 


RN' RAMFNE À CEITIE PAGE" 
2080 PI = 3 1416-E = EXP (I) 
2090 REIURN 
2i00 REM »* TEXTE #* 
2110 VX = 7:VY = 8 
2120 1F PÉEK (49250) > 127 THEN VX = 1] 
ëVT = 1 
2130 IF PEEK (49249) > 127 THEN VX = 7 
O:VY = 48 
2140 IF R = 21 THEN K& = X4 $ VX: IF X8 
> 279 THEN XV = 279 
2150 IFR = 8 THEN Xt = X& - VX: IEF' X4 
< 0 THEN X4 = 0 
2160 IFR = 10 THEN Y3 = Yh + VY: IF Y8 
> 191 THEN Y$ = 191 
2170 IFR = 11 THEN Y& = Y$ = VY: IF Yt 
< O0 THEN Y& = 0 
2180 REIURN 
2190 PT = I:CI = 98.KK = O:CR = CT:S » C 
T:XE = 5:Y4 = 5: XORAN CT AT X4,Y8 
2200 C = PEEK (99152) = 128: IFC<0G 
OT 2200 
2210 POKE 49168,0:S = C - 29: IF C = 27 
THEN TT = 1 - TT: XDRANW CT AT X8,Y8: 
CT = 34 * (TT = 1) + CR * (TT = O0): Xx 
ORAW CT AT X$,Y8: GOTO 2200 
2230 IFC< > 32 OR TT = 0 GOTO 2250 
2240 KK = 1: GOTO 2200 
2250 IF C<320RC = 127 GOTO 2330 
2260 IF PEEK (49249) > 127 AND C > 47 
AND C < 91 THEN S = S + 80 
2270 XDRAN CT AT X3,Y4: DRAW S AT X$,Y6 
2280 IF IT = O THEN CT = CR:KK = 0: GOT 
© 2310 
2290 CT =Ss 
2300 GOoTO 2200 
2310 X% = X8 + 7 
2320 XORANW CT AT X#,Y8: GOTO 2200 
2330 IF KK = ] THEN KK = 0: DRAW CT AT 
X4&,Y4: GOTD 2350 
2340 XURAN CT AT X&,Y# 
2350 IF C « 13 THEN RO = 0: ROTæ RO:CT 
= CR:TT = O:KK = 0: RETURN 
2360 IF C = 23 IHEN RO = (RO = 56} + O 


+ (RD < 56) + {RO + 8): ROT®= RO 

2370 IF C = 127 THEN DRAW CT AT X4, Y#: 
XORAN CT AT X8,Y4 

2380 IFC < > 6 GTO 2450 

2390 LD = 1280: GOSUB 2410: IF RÉP = 3T 
HEN LD = I1536:X4 « X4 - 7 ° FF:YS = Y 
$ + 8- GOSUE 2410 

Z400 GOID 2450 

2410 EF = 0 

2420 S æ PEEK (LD + FF) - 157: IF S = à 
THEN RETURN 

2430 XDRAN S AT X8,YU:XE = X4 + 7FE = 
FF' + 1: IF X& > 277 THEN RETURN 

2440 GOTO 2420 

2450 R = C: GOSU6 2110: GOTO 2320 

2460 REM *‘* TRAITEMENT D'ERREUR ** 

2470 CALL 931 

2480 POP 

2490 XDRAN 34 AT 10,10 

2500 ER = PEEK (222) 

2510 IF ER < > 53 AND ER < > 133 GOTO 
2540 

2520 XDRAW 34 AT 10,10 

2530 T = T4: GOTO 1640 

2540 IF ER = 6 THEN PRINT : PRINT "FAS 
D'IMAGE DE CE NOM (RETURN}": GET CAR 
$ 

2550 IF ER = 16 THEN POKE 49233,0: VTA 
B VM + 1: CALL - 958: PRINT "ERREUR 
DE SYNTAXE"; PRINT “VERIFIER L'ECRITU 
RE DE LA FONCTION": PRINT "RETURN":: 
GET CARS 

2560 GOTO 1240 

2570 DATA FONCTION CARIESIENNE,FONCTIO 
N POLAIRE, FONCTION PARAMETRIQUE 





Programme 
SCHEMATEUR 

5 HIMEM: 36863 

10 REM #** SCHEMATEUR ** 


20 REM *# M.CAUET - NOV 86 ** 

30 IF‘ PEEK (103) « 256 * PEEK (104) = 
24577 GOTO 2240 

40 REM ** IMPLANTATION DU PROGRAMME AU 
—DESSUS DE HGR2 °° 

50 POKE 103,1: POKE 104,96: POKE 24576, 
0 

60 PRINT CHR$S {4) RUN SCHEMATEUR" 

90 REM ‘’” COORDONNEES DU POINT °° 

80 IF ME AND R = 9 THEN MN = 1 — MN 

$0 JE MN = O0 GOTO 110 

100 Xv = POL (0) / 255 * 273:Y8 = POL 
(1) 7 255 * 191: RETURN 

110 VX æ IZ2:VY æ 12 

120 IF" PEEK (49250) > 127 THEN VX = 1: 
=! 

130 IF PEEK (49249} > 127 THEN VX = 70 
:VY = 48 

140 IF R = 21 THEN X& = X4 # VX: IF° X4& 
> 279 THEN X4 = 279 

150 IFR « 8 THEN Xkt = X& — VX: IF X8& < 
O0 THEN X& = 0 

160 IFR = 10 THEN Yk = Y& + VY: IF Y& 
> 191 THEN Yt = j91 

170 IFR = 11 THEN Y& = Y® = VY: IF Yét 
< O THEN Y& = 0 

180 RETURN 


190 REM ‘’* ANALYSE DE LA COMMANDE ** 

200 :F DP AND MOT DH THEN XIb& = X8:yls 
= Yt 

210 DH = 0 


220 IF PEEK (49152) > 127 THEN R = PE 
EK (49152) - 128: POKE 49)68,0: IF MN 
OR NOT MN AND (R > 31 OR R = 13 OR 
R = 17) G010 250 

230 GOSsuB 80: IF NOT PT THEN XDRAW CU 
AT XO8, YO4 

240 xO0 = X4:Y0ù = Y&: XDRAW CU AT XO08,Y 
Ot:PT = 0:R = 0: GOTO 220 

250 FOR I = ! TO 2C: IF R= R(I} THEN 
ON I GoSU8 290, 310, 1030, 350, 400, 420, 4 
40, 490,440, 550, 590, 690,950,2160,1070, 
1210,1250,1580,1580,1580,1580,1920,19 
20,1090,1130, 980,810,1150,510: GOTO 2 
00 

260 NEXT : IFR > 96 AND R < 123 THEN 
POKE 49235, 0: HOME : VTAB 22: PRINT " 
PASSEZ EN MAJUSCULES S.V.P. ET RETURN 
."; GET CARS: POKE 4923%,0:R = R — 32 
: GoT0 250 

270 GOTO 200 


280 REM MOQUE 
290 POP : RETURN 
300 REM ** DSL **° 


310 POKE 49235,0: HOME VTAG 23: PRINT 

"PERTE DU DESSIN (O/N}?:":: GET CARS 

: IF' CARS < > "D" AND CARS < > *o" 
GOTO 330 

320 HGR :PT = 1:B = O:CL = 3: 
L: POKE A4 + 8,B 

330 POKE 49234,0: RETURN 

340 REM *" Love 

350 POKE 49235,0: HOME : VTAB 21: PRINT 

"LIMITE ET FUSION PAR POINTS *“:: IF 
B = O0 THEN PRINT "ALLUMES."; GOTO 37 
0 

360 PRINT "ETEINTS.* 

370 PRINT "TAPEZ C POUR CHANGER": GET C 
ARS: 1F CARS = "°C" THEN B = 1 - 8: PO 
KE AA + 6,6 

380 POKE 49234,0: RETURN 


HICOLORæ C 


390 REX Es 
400 GOSUB 420:DP = 0: RETURN 
410 REM LP ide 


420 HPLOT XO8,YO8:X18 = XO&:Y18 = YO084:0 
P = 1:PT = }: RETURN 


430 REM °° H-V » 

440 IFR = 86 GOTO 460 

450 #PLOT X&,Y18 TS XIS,YIS:XIE = X4: G 
oTo 470 

460 HPLOT XIS,Y4 TO XIR,YIR:YIE = Y& 


470 OH = l: RETURN 
480 REM ++ ESPACE ** 

490 HPLOT X4,Y4 TO XI4,YI8:PT = 1: RETU 
RN 
500 REM 

S10 XDRAN CU AT X&,Y4 

520 CALL AG 

530 XDRAN CU AT X4,Y4&: RETURN 

540 REM °"R°" 

550 HPLOT X8,Y$# TO XI4,Y4 TO XI4,Y13 TO 


CRE 


X6,Y19 TO X4,Y8:PT = 1: RETURN 

560 REM CAMES 

570 PT = 1; P8KE 49235,0: HOME ; VTAB 22 
: PRINT * G- GOMME R- REM 
PLIT®: PRINT * D- DECOUPE E 
- ENCADRE": PRINT " M- MOBIL 


EE": VTAB 2i: ATAB I: PRINT "FENÊTRE: 
CHOIX :";: GET CARS 

S80 POKE 49234,0: IF CARS = CHRS (13) 
THEN RETURN 

S90 ST = — CL # 3 + 8 * (CL > 3): JF CA 
R$ = °C" OR CARS = *D“ OR CARS = vMe 
THEN  HCOLOR= ST 

600 IF CARS = "G" OR CARS = "R" THEN G 
OSUB 670: HCOLOR= CL: RETURN 

610 IF' CARS æ "D" OR CARS = “E" THEN G 
OSUB 640: HCOLOR= CL: RETURN 

620 If CARS = "M" THEN POKE 49235,0: # 
OME : VTAB 23: PRINT "UN INSTANT S.V, 
P.“#: CALL AP: GOSUB 640: CALL AE: GDS 
UB 670: HCOLOR= CL: POKE 49234, 0: CAL 
L AV: RETURN 

63 GOTO 570 

640 IF KI > X3 THEN WW = XIS:X1& = X4: 
Xt = hw 

650 IF Yit > Yé THEN WN = YIS:YIE = Y$: 
Y& = Ne 

660 FOR 1 = O0 TO X1%: ifPLOT 1,0 TO I,19 
J: NEXT : FOR J = X1B TO XB: HPLOT 1, 
O0 TO I,Y1#: HPIOT I,Y% 10 f,191: NEXT 
: FOR 1 = X8 TO 279: HPLOT 1,0 10 1, 
191: NEXT : RETURN 

670 FOR [I = Y4& TO YI$ SIEP 2 * (YI6 > Y 
4) — 1: LPLOT X&,1 TO X18,1: NEXT :PT 
= 1: REIVRN 

680 REM °° K ts 

690 CC = 78 # (CL = 0) + 86 * {CL = 3) + 
71 * (CL = 1):CL$ = CHRS$S (CC): IF C 
C = O0 THEN CLS = STRS (CL) 

700 POKE 49235,0: HOME : VTAB 21: PRINT 
"COULEUR (0à7,ou B blanc, N noir,G gr 
13):"CL$:: CALL - 1008: GET CL$é 

710 CB = (CLS = "N") + 2 + (CLS = *G") + 
4 * (CLS = "B") - 1: IF C8 = - 1 AN 
D CLS > ®/" AND CLS < "8" THEN CB = 
VAL (CLS) 

920 IF CB= 

710 CL = C8 

740 HCOLOR= CL: FOKE 49234,0: RETURN 

750 REY 

760 INVERSE : PRINT DI:: 
LEN 4 STR$ (DI)): CALL 
;: GET RIS$S: IF RIS = 
H = 17: GOTO 870 


- 1 G010 740 


Fr pe* 

FOR 1 = 1 TO 
- 1008: NEXT 
CHR$ (17) THEN C 
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770 IF RIS < “O0” OR RI$ > "9" THEN DF = DI: NORMAL : PRINT 
"*2 RETURN 
780 PRINT R1S$S::01 = VAL (R1$)J: GET R2$: IF R2$ = CHRS (I 


7) THEN CH = 17: OOTO 870 

790 1F R2$ < "O0" OR R2$ > "9° THEH PRINT ® ":DF = D1: NOR 
MAL : RETURN 

800 PRINT R2$:DF = D1 " 10 #* VAL (R2$): NORMAL : RETURN 

810 POKE 49235,0: HOME : VTAB 21: PRINT “MODE: CVHPQG 
D L (AIDE: ‘Ctrl Q')":1 = MD 


815 HTAB 1: VTAS 23: PRINT "FIECHMES -> CHOISIR RETURN —> 
VALIDER" 

820 IF 1 = 8 THEN 1 = 0 

830 IF 1 = - ] THEN 1= 7 

840 VTAB 21: HTAB 7 + 2 * I: GET CARS:CH = ASC (CARS) 


850 IF CH = 21 OR CH = 10 THEN j = 1 + 1: GOTO 820 

860 JF CH « 8 OR CH = II THEN J = I - J: GOTO 830 

870 IF CH= 17 THEN TEXT : HOME : NORMAL : PRINT IN$S(24}: 
PRINT : FOR 1 = 25 TO 32: PRINT INS(J}: NEAT : PRINT : 
PRINT INS(33): PRINT : PRINT INS(34): GET CARS: POKE 492 
32,0: GOTC 810 

875 IF CH < > 13 GOTO 840 

880 MB = I: POKE AA + 1,MD 

890 IF ji = 0 GOTO 930 

900 HTAB 1: VTAB 22: CALL = 958: PRINT "PAS:";:DI = PA: G 
OSUB ?760:PA = DF: IF PA < = 0 GOTO 900 

910 POKE AA + 2,PA 

3920 PRINT "EPAISSEUR:";;DI = EP; GOSUB 760;EP = DF: POKE AA,£P 
"1 

930 POKE 49239,0: RETURN 

940 REM 

950 IF MA * NI = O THEN RETURN 

96Q CALL AD: RETURN 


Dee 


970 REN ** B°* , 
960 HOME : IE MA = O THEN XDRA# CU AT X6,Y6: CALL AE:PT = 1: R 
E TURN 


590 IF NI > 4 THEN POKE 49235,0: HOME ; 
TION". GET CARS: GOTO 1010 

1000 XDRAW CU AT XB,YS:NI = NI + 1: POKE AA + 3,NI: POKE AA + ] 
S,NI * 32: CALL AB:PT = 1:B = O:CL = 3: HCDLOR= CL: POKE AA # 
8,B: HGR 

1010 POKE 49234,0: RETURN 

1020 REM *°N7e 

1030 IF MA = O THEN RETURN 

1040 NU = PEEK (AA + 16). XDRAN CU AT X&,Y4. POKE AA + 15,NU * 
32: CALL AB.PT = 1:B = O:CL = 3: NCOLOR= CL: POKE AA * 8,B: C 
ALL AE 

1050 PORE 49239,0: RETURN 

1060 REM Nr 

1070 XDRAW CU AT K4,Y4: CALL AF:PT = l: RETURN 

1080 REM " U »* 

1090 POKE 49235,0: HOME : VTAB 23: PRINT “SUPERPOSITION CONFIRM 
EE? {O/N)";: GET CARS: IF CARS < > “O" AND CARS € > "o" GOT 
O 1110 


VTAB 21: PRINT "SATURA 


1100 XDRAN Ci AT X#,Y®: CALL AU 

1110 POKE 492349,0:PT = 1: RETURN 

1120 REM "+1 "" 

1130 CALL AI:CL = = CL + 3 # 8 * (CL > 3):8 = 1 - B: NCOLOR= C 


L: POKE AA # 6,B: RETURN 

1140 REM °* J °»* 

1150 IF MA = O THEN RETURN 

1160 POKE 49235,0: HOME : VIAB 23: PRINT "N@MBRE D'IMAGES EN BA 
NQUE: ®NI;:: CALL - 1008: GET MIS: IF' NIS < "Q" OR NIS > 5” 
GOTO 1190 


1170 PRINT NIS:MI = VAL (NIS) 

1180 POKE AA + 3,NI 

2190 PORE 49234,0: RETURN 

1200 REM °° S +» 

1210 XH = INT (X4 / 256):XB = X4 - XH * 256 

1220 POKE AA * 4,X&: POKE AA + 12,XB; POKE AA # 5,XH: POKE AA # 


13,Xh': POKE AA + 6,Y: POKE AA + 7,Y8: POKE AA + 9,0 

1230 PT = 1: XORAN CU AT X4,Y8: CALL AS: RETURN 

1240 REM *" T ** 

1250 FT = J:CR = CT:S æ CT: XDRAN CU AT X4,Yt: XDRAW CT AT X0,Y8 

1260 C = PEEK (49152) - 128: IF C < O GOTO 1260 

1270 POKE 49166,0:S æ C - 29. IF C= 27 THEN 1T = ! - IT: XDRA# 
CT AT X&,Y4:CT = 34 ” (TT = 1) + CR * (TT = 0): XDRAw# CT AT 
X%,Y8: GOT i260 

1280 IF C = 17 THEN TEXT : HOME : FOR I = 4] TO 51: PRINT INS( 
I): NEXT : GET CARS: POKE 49232,0: GOTO 1260 

1284 IF ME AND C = 9 THEN MN = ) - MN 

1290 IFC< > 32 OR TT = O GOTO 1310 

1292 IF MN = O GOT0 1300 

1293 DRAN CT AT Xè,rt: GOSUB 100: XDRAW CT AT X0,Y$ 

1294 IF PEEK (49152) > 127 GOTO 1260 

1296 XX$ = XU:YYS = YR: GOSUB 100: IF X6 = XX8 AND Y4 = YYs GOTO 
1294 

1297 XDRAW CT AT XX8,YY8: XDRAW CT AT X8B,Y8: GOTO 1294 

1300 AK = ]l: GOTO 1260 

1310 IFC<320ORC= 127 GOTO 1430 

1320 IF PEEK (49249) > 127 ANO C > 47 AND C < 91 THENS=S + 
80 

1330 XDRAN CT AT X6,Y$: DRAN S AT X6,Y8 

1340 IF TT = O THEN CT = CR:KX = 0: GOTO 1370 


1350 CT = S: IF MN GGTO 1294 


VOEXD=XEMKSORC 1-X72 3 
OÙ : 


Y=X+MN1-X7 


(Ellipses) 





1360 GOTO 1260 
1370X8 = xt + 7 


1380 IF X0 > 277 THEN Y$ = Y6 + 8:X8 = X0 - 273: IF X6 > 8 THEN 
Xe = X6 = 7 

1390 IF X6 < 2 THEN Y6 = Y6 - 8:X0 = X4 # 273: IF X6 < 271 THEN 
Xe = X4 + 7 

1400 IF Y® < 4 THEN YO = 186 

1410 IF Y6 > I86 THEN Y4 = 4 

1420 XDRAW CT AT Xt,Y#$: GOTO 1260 

1430 IF KK = 1 THEN KK = O0: DRAW CT AT X@,Y8: GOTO 1450 

1440 XDRAN CT AT X6,Y6 

1450 IF C = J3 THEN RO = 0: ROT= RO.CT = CR:TT = 0:SC = 1: SCAL 


E= SC.KK = 0: RETURN 

1460 IF (C = 1 AND SC < 51) OR (C = 26 AND SC > 1} THEN SC = SC 
# (Cm 1) —- {C = 26): SCALE= SC 

1470 IF Cm 23 THEN RO = {RO = 56) ” O » (RO < 56) * {RO * 8): 
ROT> RO 

1430 IF C = 127 THEN DRAW CT AT X0,Y0: XDRAW CTAT X0,Y8:C = 8 

1485 JE TT = } AND MN = ] THEN XDRAW CT AT X#t,Y8: GOIO 1294 

1490 VX = 7:VY = 8 

1500 IF PEEK (49250) > 127 THEN VX = l:VY = 1 

1510 IF PEEK (149249) > 127 THEN VX = 70:VY = 48 

1520 IF C= 21 THEN X4 = X4 + VX 

1530 IF C # 8 THEN X6 = X4 - VX 

1540 IF C = 10 THEN T6 = Yg + VY 

1550 IF C=« 1! THEN Y$ = Ya - VY 

1560 GorG 1380 

1570 REM *? C,D,A,E *" 

1580 PT = l:RX = X0B - X]18.RY = YI4 - YOS:RA = 
2 +RY " 2) + .5) 


INT { SCOR (RX * 


1590 1F' RA = O THEN RETURN 

1600 XPRAN CU AT X08, YO6 

1610 IFR = 65 OR R = 69 GOTO 1750 

1620 XH = INT (XI6 / 256):XB = XI - XH * 256: POKE AA + 4,XB: 


POKE AA + 5,XH: POKE AA + 6,Y16 

1630 1F RA > 255 THEN RETURN 

1640 IFR = 68 GOTO i660 

1650 POKE AA + 9,RA: CALL AC: RETURN 

1660 RM = RA: FOR RA = 1 TO RM: GOSUB 1650: IF 
27 THEN POKE 49168,0: RETURN 

1662 NEXT 

1670 IF RA < 64 GOTO 1730 

1680 FOR I = = RA TO - 64: GOSUB 1710: NEXT 

1690 FOR Ï = 64 TO RA: GOSUB 1710: NEXT 

3700 RA = 64: GOTO 1730 

1710 JF Y19 # £ > - 1 AND YI$ + ji < 192 AND X18 > 1 AND XIt < 
192 THEN HPLOT XI1% — 1,Y18 + 1 10 XI$ + I,Y1I4 # I 

1720 RETURN 

1730 FOR I = - RA TO RA: IF YI8 #1] > 
HEN HPLOT XI8,YI0 + I 

1740 NEXT : RETURN 

1750 D = .02 


PEEK (49152) > 1 


- 1 AND YIt + I < 1927T 


1760 IFR = 65 THEN X = XO®:Y « YO$:EX = 1:EY = i: GO10 1810 
1770 IF RX = O OR RY = O THEN RETURN 
1780 IF ABS (RX) > = ABS (RY) THEN X = XI18 + RX:Y = Y1V: GOT 


o 1800 
1790 X æ X18:Y = YA > RY 
1800 EX = ABS (RX / RY):EY = 
1810 HPLOT X,Y 
1820Y = Y#EY ° D" (X- XIVJ:X = X = EX ?* D * (Y - YI$) 


ABS (RY / RX) 


1830 IF X < O OR X > 279 OR Y < O OR Y > 191 GOTO 1820 
1840 HPLOT TO X,Y 
1850 IF PEEK (49152) > 127 THEN TH = PEER (49152) - 128: POKE 


49168,0: GOTO 1870 


1860 GOTO 1820 

1870 IF TH = 13 GOTO 1900 

1880 GET CAR$: IF CAR$ « CHRS (13} GOTO 1900 
1890 GOTC 1820 
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1900 X8 = X:Yb = Y: RETURN 
1910 REM "°° G,Y °° 
1920 XOÙ = X0.Y08 = vVô. DRANW CG AT X08,V 
ot 
1930 IF MN THEN MR = L:6W = 0 
1940 GOTO 1970 
1950 IF PEEK (49152) > 127 THEN R = P 
EEK (49152) - 128: POKE 49168,0 
1960 GOSUB 80: XDORAw CG AT XO08,Y08:X03 
= XS:YOE = Y$: DRAN CG AT XO&,Y0% 
1970 IF R = 89 TNEN XDRAW CG AT X0ë,r0 
$: ROT= 16: DRAW CG AT XO8, YO 
1980 IF R« 71 THEN XDRAw CG AT XO08,Y0 
&: ROT= 0: DRAw CG AT X0t,Y70+t 
1990 IF Re j3 THEN XDRAW CGAT X0t,Y0 
$. DRAw CU AT XOU, YO: ROT= O.MN = MR 
.MR = O0: RETURN 
2000 R = 0: GOI0 1950 
2010 RE ‘* CHARGER, ENREGISTRER, CATALD 
G 
2020 1F NOT PL THEN RETURN 
2030 HTAB 1: VTAB 14: PRINT "LECTEUR N° 
:°;:1: INVERSE : PRINT NL,;: N@RMAL : CA 
LL = 1008: GET CARS: IF CARS =  CHRS 
{13} THEN RETURN 
2040 IF CARS < > "1" AND CARS < > 72" 
GOTO 2020 
2050 NL æ VAL (CARS): INVERSE : 
L: NORMAL : RETURN 
2060 Gosué 2020 
2070 PRINT : PRINT OS“CATALOG,D".NL: PRI 
NT : INPUT "NOM DE L'IMAGE:";INS: 1€ 
IM$S = ®" GOTO 2110 
2080 PG = ASC ( LEFTS (IMS$,1)). IF PG < 
65 OR PG > 90 THEN VTAR 9: GOTO 207 
0 
2090 IF I = 2 THEN XDRAW CU AT X0,Ys8. 
PRINT D$°BSAVE"IM$"®,AS$2000,LS$2000,D°: 
NL: GOTO 2110 
2100 PRINT DS"BRUN CHARGE.0BJ,AS9000" 
2105 4 IMS,8192 
2110 RETURN 
2120 HOME : GOSUS 2020: HOME . PRINT 
2130 PRINT DS$"CATALDG, D'NL: INVERSE : P 
RINT "FIN“: NORMAL 
2340 GET CARS: HOME : RETURN 
2150 REM v* INFORMATIONS ‘”? 
2160 TEXT : HOME : FOR I = j TO 22 
2170 IF (1 = 4 OR I = 5) AND ME = O GOT 
Oo 2200 
2180 IF 1 = 21 AND MA = O THEN 1 = 25:: 
PRIAIT "B -> ECHANGE BIS": GDI0 2200 
2290 PRINT INS(1) 
2200 NEXT 
2210 PRINT IMNS(23); 
2220 GET CARS: POKE 49232,0: POKE 49239 
0: POXE 49236,0: RETURN 
2230 REM *‘* DÉBUT °° 
2240 HOME : VTAB 8: HTAB 12: INVERSE : 
PRINT ® SCHEMATEUR “: NORMAL : VTAB ! 
4: PRINT "TOUCHE ‘'Q' POUR ACCEBER AU 
MENU: VTAB 19: PRINT "TOUCHE ‘'Ctri 
Of POUR AIDE-MEMOIRE" 
2250 2C = 29:IN = SI:N = 6 
2260 ME = 0: IF PEER (207) THEN ME « ] 
2270 PL = O: IF PEEK (214) THEN PL = 1 
2280 MA = 0: IF PEEK (215) THEN MA = 1 
2290 A4 = 2817:AL = 6O0O00:AE = AA + 17 
2300 DIM RIZCJ,INS{IN) 
2310 CU = 1:CG = 2:CT = SO:KK = O:SC = ] 
:RO = O:CR = 1:TT = 0 
2320 DE = S:CL = 3:MN = O:MR = O:X8 = 13 
9:Yt = 9S:XO06 » XÉ:YO$ = YÈ:PT = O:DP 
= 0:ST = INL = 1:H = O0:DH = O:NI = 
O:VX = I2:VY = J2:MD = O:PA = 3:EP = 
1 
2330C= 0:S = 0:PG= O:RX = O:RY = O:RA 
= O:D æ O:EX > ]:EY = 1:TH = O:R = 0 
:X1% = O:Y14 = O:XH = O:XB = Q:CH = 0 
:1X æ O:Y = O:NU = O:CE = 0 
2340 IMS = "";: CARS = "*ICLS = *“:DS = C 
HRS 14) 
2350 FOR J = ] TO IN: READ INS(I): MEXT 


PRINT N 


2360 FOR I = 1 TO 2C: READ R(1): NEXT 

2370 1F PEEK (235} GOTO 2420 

2380 POKE 233, INT (AL / 256): POKE 232 
#AL = 256 * ( INT (AL / 256)) 

2390 PRINT DS*BRUN CHARGE.OBJ,AS9000" 

2400 & "CARAC.SN",AL: 6 "SCHEN.C",.4A 

2410 POKE 235,1 

2420 AF = AE + 3;,AB = AE + 6:AO « AE + 9 
AI m AE + ]2:AU = AE # 1S:AC « AE + 
18:AG = AE + 2i:AV = AE + 24:AP = AE 


+ 27:AW = AË + 30:AS = AE + 33 

2430 POKE AA «+ 16,1: POKÉ AA + 3,N1: PO 
KE AA + 8,8 

2440 POKE AA + 1,MD: POKE AA + 2,PA: PO 
KE AA,EP - 1 

2450 ÆONERR GOIO 2710 

2460 POKE 49232,2: POKE 49239,0: POKE 4 
9236,0: PDKE 49234,0 

2470 HCOLOR= CL: ROT= RO: SCALE» 1] 

2480 DRAW CU AT XOt, YO 

2490 GOSUYB 200: TEXT : HUME 

2500 REM ** MENU *° 

2510 FOR 1 = 1 TO N: GOSUB 2670: NEXT 

2520 I = 1: INVERSE : GOSUB 2670: NORMAL 


2530 VTAB 22: PRINT "FLECHES -> CHOISIR 
RETURN -> VALIDER" 
2540 VTAB 23: GET CARS:CH = ASC (CARS} 
2550 IE CH = 10 OR CH = 8 THEN GOSUA 2 
670:I7 = 1 + 1: INVERSE : GOSUB 2670: 
NORMAL 
2£60 IF CH = 11 OR CH = 21 THEN GDSUS 


2670:1 > I - I: IMVERSE : GOSUB 2670: 
NORMAL 
2570 IF CH = 13 THEN HOME : GOTO 2590 


2580 GOTO 2540 

2590 ON I GOTO 2600,2610,2620,2660,2630 
,2630 

2600 POKE 49232,0: POKE 49239,0: POKE 4 
9236,0: GOTO 2490 

2616 GOSUB 2060: GOTD 2600 

2620 GOSu8 2060:PT = 1: GOTO 2600 

2630 GOSUB 2120: GOTO 2510 

2640 XDRAW 1 AT X6,Y0: TEXT : HOME : PR 
ENT 

2650 PRINT DS"RUN MENU, DI": REM 
No 

2660 PRINT : PRINT DS"RUN GRAVURE, D" 

2670 IFI=æN+1THENI=1 

2680 IFI=OTHNI=N 

2690 VTAB I + DE: HTAB 4: PRINT INS(34 
+ 1): RETURN 

2700 REM ‘** ERREUR ** 

2710 ER = PEER (222): IF ER = 6 TNEN T 
EXT : HOME : VTAB 10: PRINT "FICHIER 
ABSENT": CET CARS 

2720 HOME : GOTU 2510 

2730 DATA LES FLECMES DEPLACENT LE POI 
NT, POMME BLANCHE -> RAPIDE, PUMME NOIR 
E ->LENT, Tab -> MANETTES, Tab -> FLEC 
HES, Del -> EFFACE 

2740 DATA K -> COULEUR Î -> INVE 
RSION,X -> POINT DE DEPART, 2 -> DEPAR 
T PERMANENT,BARRE ESPACE -> RELIE DEU 
X POINTS,H -> RELIE NORIZONTALEMENT, V 

-> RELIE VERTICALEMENT 
2750 DATA R => RECTANGLE,C -> CERC 
LE D => DISQUE,F -> FENETRES 
M -> MOUVEMENT, A -> ARC DE CERCLE 
E -> ELLIPSE,G -> COMME HORI£ONTA 
LE  Y ->VERTICALE 

2760 DATA S -> REMPLIT UNE SURFACE, 
P -> MODE REMPLISSAGE  L -> LIMITES, 
W -> ECHANGE DESSINS U -> UNION,B 
—> METTRE EN BANQUE  O -> OSSERVER,N 

-> REMPLACER EN BANQUE J -> NOMBRES 
,T -> TEXTE Ctri Q -> INFOAMATIO 
NS 

2770 DATA MODE DE REMPLISSAGE DES SUR 
FACES,C -> REMPLISSAGE COMPLET, V -> L 
IGNES VERTICALES,N -> LIGNES HORIZONT 
ALES,P -> POINTILLES,O -> QUADRILLAGE 
+D -> HACHURES PENCHEES A DROTE, G => 
HACNORES PENCHEES À GAUCHE, L -> LDSAN 
Œs 

2780 DATA L'DPTIDN ‘PAS' DONNE L'ECART 

ENTRE LES MOTIFS, L'OPTION ‘'EPAISSEU 
R' DONNE L'EPAISSEUR DES TRAITS 
2790 DATA RETOUR À L'IMAGE,ENREGISTRER 
L'IMAGE,CHARGER UNE IMAGE, IMPRIMER, C 
ATALOGUE, QUITTER LE PROGRAMME 

2800 DATA VOUS ETES EN NODE TEXTE,T 
OUT LE CLAVIER AZERTY EST OPERATIONNE 
LeLES FLECNES DEPLACENT LE CURSEUR,De 
1 -> EFFACE,Ctri A -> AGRANDIT,Ctr! Z 

-> RAPETISSE, Ctri N -> FAIT TOURNER 

2810 DATA -,Ësc -> AFFICHE CARACTÈRE 
OU SHAPE, DEPLACENENT CONME EN MODE GR 
APHJQUE, HARRE ESPACE -> MARQUE 

2820 DATA 81,127, 28,76, 90, 88, 86, 32, 72 
182,20, 75, 79,17,87,83, 84, 67, 68, 65, 69, 
71,89,85, 73, 66, 80, 74: 27 


F1 








Programme GRAVURE 


$ HIMEM: 36863 

10 REM ee GRAVURE **° 

20 D$ = CHRS (4) :0M = 1 

30 (ONERR G010 890 

40 IF PEEK (103) + 256 * 

24577 GOTC 70 

SG PORE 103,1: POKE 104,96: POKE 24576, 
0 

60 PRINT DS*RUN GRAVURE" 

70 HOME : VTAB 10: NTAB £: INVERSE : PR 
INT ® PROGRAMME GRAVURE ": NORMAL 
VTAS 15: HTAH 6: PRINT "SORTIE SUR 1M 
PRIMANTE®: HTAB 11: PRINT "IMAGSWRITE 
R" 

80 DIM C(8),D{14) 

90 FOR I = 1 TO 8: KEaD CI): NEXT . FO 
R I = 1 rO 4: REAO D(I): NEXT 

100 FOR I = Ô0 TO 3: READ FR$S(I): NEXT 
FOR I = I T0 3: READ INS(I): NEXT 

110 IH = 468:I1B = 48:MB = 48:MH = 48 

120 NL = 1:P1 = 0: IF PEEK 1214) THEN P 
L =1 

130 AG = 2043:AC = 206: REM #2 ADRESSES 
DU PROGRAMME COUT ET DU CARACTERE EN 
VOYE*e 

140 AP = ,4G + 6, REM 
AMME GRAV.C*:* 

150 IF  PEEK {237} GOTO 180 

160 PRINT : PRINT D$"BLOAO GRAV.C,A"AG 

170 POKE 237,1 

180 HOME : VTAB 9: PRINT "RETURN POUR I 
MAGE EN COURS*: PRINT AUTRE TOUCHE P 
OUR NOUVELLE IMAGE";:: GET CARS: IF CA 
R$ < > CHR$ (13) GOTO 210 

200 POKE 49232,0: POKE 49234,0: POKE 49 
236,0: POKE 49239,0: GOTO 270 

210 IF NOT PL GOIO 250 

220 ATAB I: VYTAB 13: PRINT "LECTEUR 1°. 
“;: INVERSE : PRINT NL:: NORMAL : CAL 
L -— 1008: GET CARS- PRINT CARS: IF C 
ARS = CHRS (13) GOTO 250 

230 IF CARS < “1° OR CARS > *2* GOTO 22 
0 

240 NL = VAL (CARS) 

250 PRINT : PRINT DS"CATALOG,D°NL: PRIN 
T : INPUT "NOM DE L'IMAGE:":IMS: IF I 
MS = *#* GOTO 180 

260 PGR : POKE 49234,0: PRINT : PRINT D 
$"BRUN CHARGE.OBJ,AS9000": 4 IMS,8192 

270 GET CARS: TEXT 

280 HOME : PRINT "1,'IMPRIMANTE EST-ELLE 
PRETEIO/N)J2:";: INVERSE PRINT “O"; 
: NDRMAL : CALL -— j008: GET CARS: PR 
INT CARS: IF CARS = "N® OR CARS = "n° 
Go010 760 

290 VTAB 3; PRINT "NOUVELLES DISPOSITIO 
NS(O/N)?2:%;: INVERSE : PRINT "O":: NO 
RMAL : CALL — 1988: GET CARS: PRINT 
CARS: IF CARS < > TN" AND CARS € > 
“n®" GOTO 310 

300 GOTO 580 

310 IC = 0: HOME : VTAB 3: PRINT "INVERS 
ER NORMALEMENT LA COULEUR(IO/N)?:".: I 
NVERSE : PRINT "O":: NORMAL : CALL - 

1008: GET CARS: PRINT CARS: IF CAR$ 
= "O0" OR CARS = "Oo" OR CARS = THRS ( 
13) THEN IC =1 

320 HOME : VTAB 2: PRINT “L'inage peut 
s'imPrimer en deux hauteursHauteur si 
mple(6.?cm} ot double(13.4cm)" 

330 HI = !: VTAB 5: PRINT “IMAGS DE HAUT 
EUR SIMPLE(O/N)?:";: INVERSE : PRINT 
“0";:: NORMAL : CALL - 1008: GET CARS 
: PRINT CARS: IF CARS = "0" OR CARS = 

ro" OR CARS = CHRS (13) THEN NI = O0 

340 DM = IC + 2 + HJ 

350 IF DM > 1 AID D(1) = 4.4 THEN FÆOR 
I = 1 10 8:D(I1) = 2 * D{I): NEXT 

360 IF DM < 2 AND D(I) = 8.8 THEN FOR 
J= 1 70 8:D{1) = D(I) / 2: NEXT 

370 HOME : VTAB 3: PRINT FRS (ON): VTAB 
S: PRINT "DEFORMATION HORIZONTALEIO/N 
J?:"{;: INVERSE PRINT °N*;: NORMAL : 

CALL = 1008: GET CARS: PRINT CARS 

380 IF CARS = °N" OR CARS = "n°" OR CARS 

= CHR$ (13) THEN DO = ]4:D = D(8):D 
I = 2: GOTO 480 

390 II = 14: 1F DM > 1 THEN Il = 8 

400 VTAB ?: PRINT "LARGEUR DE L'IMAGE:" 
: FOR I = 1 TO II: PRINT CHRS (64 + 
1}®-— ("O{I}" cmJ°: MEXT : VTAB 15: HT 
:48 12: INVERSE : PRINT "NORMAL": NORM 


PEEK (104) > 


*ADRESSE DU PROGR 
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410 IF DM > 1 GOTU 460 

420 VTAB 23: PRINT "CHOIX(A à N):":: GE 
T CARS:DJ = ASC (CARS - 64: IF DI < 
1 @R DI > 14 OOTO 420 

430 DO = 15: IF DI > 6 THEN DO = 14 

440 B = D(DI}: IF DI > 6 THEN DI = DI - 
é 

450 GOTO 480 

460 VTAB 17: PBINT "CHOIXIA à H}):";: GE 
T CARS-DI = ASC (CARS) = 64: IF DI < 
1 OR DI > 8 GOTO 460 

470 DO = 15:D = D{DI) 

480 HTAB 1: VTAB 5: CALL - 958:CI = C{( 
D1): PRINT : PRINT "LARGEUR OÜE L'IiMAG 
E: "D" cm':H = 6.7 » (DM < 2) + 33.4 
*" (DM > 1): PRINT "MAUTEUR DS L'IMAGE 

HR 

490 VTAB 10: HTAB 1: PRINT “POSITIONNEM 
ENT DU COIN SUPERIEUR GAUCHE DE L'ECR 
AN CONTEHANT L'IMAGE: * 

500 VTAB J3: HTAB 1: PRINT “MARGE HAUTE 

(DE 0 À 24 cm):":: INVERSE : FRINT * 
0":: NORMAL : CALL — 1008: INPUT “*; 
YS: IF Y$ = °" THEN VTAB 13: HTAB 29 
: PRINT “O":Y = 0: GOTO 520 

510 Y = VAL (Y$): IF Y < O8RY > 24 GO 
To 500 

520 IL = 93.85 * Y:IH « INT {1L / 10):18 
= INT (IL — 10 * IH) + 48:1f = IH + 
48 

530 VTAB 15: HTAB ]J: PRINT "(10.1 pour 
reccorder une image simpie}" 

540 VTAB I4: HTAB l: PRINT “MARGE GAUCH 
E (DE 0.3 A 16.Scm):";: INVERSE : PRI 
NT °0.3";: NORMAL : CALL - 1008: CAL 
L — 1008: CALL - J008: INPUT "";x$: 

IF X$ x "“ THEN VTAB 14: HTAB 32: P 
RINT “O0.3":X = 0.3: GOTO 560 

550 X = VAL (XS): IF X < 0.3 OR X > 16. 
S$ T0 540 

560 MG = 3.6 * (4 - 0.3):MH > 
10}:MB = 
= M + 48 

570 VTAB 18: PRINT *EST-CE EXACT{O/N)?: 
“;: INVERSE : PRINT °0";: NORMAL : CA 
LL - J008: GET GARS: PRINT CARS: IF 
CARS = "N* OR CARS = "n" GOTO 760 

580 PRINT : PRINT D$S*“PR£I" 

590 PRINT CHR$S (27);"n" 

600 POKE 6,1: POKE 7,0M 

610 POKE AG +# 15,Ci 

620 POKE AC,27: CALL AG: POKE AC,1:4: C 
ALL AG 

630 POKE AC,27: CALL AG: POKE AC,84: CA 
LL AG: POKE AC,50: CALL AG: POKE AC, 5 
5: CALL AG: POKE AC,31: CALL AG: PORE 
AC, 49: CALL AG 

640 POKE AC,27: CALL AG: POKE AC,102: C 
ALL AG 

650 IF IH = 8 AND IB = 48 GOTD 680 

660 POKE AC,27: CALL AG: POKE AC, 84: CA 
LL AG: POKE AC,IH: CALL AG: PONKE AC,I 
B: CALL AG 

670 POKE AC,31: CALL AG: POKE AC, 63: CA 
LL AG 

680 POKE AC,27: CALL AG: POKE AC,]Jj0: C 
ALL AG 

690 POKE AC,27: CALL AG: POKE AC,76: CA 
LL AG: POKE AC, 48: CALL AG: POKE AC,nM 
H: CALL AG: POKE AC,MB: CALL AG 

700 POKE AC,DO: CaLL AG 

710 POKE 49239,0: POKE 49234,0: PORE 49 
232, 0 

720 POKE 6,1: POKE 7,0M 

730 CALL AP 

740 PRINT : PRINT DS*PREO" 

750 POKE 49233, 0 

760 HOME : FOR 1 = ! TO 3: GOSUB 770: N 
EXT 

761 1 = 1: INVERSE : GOSUB 770: NORMAL 

762 VTAB 22: PRINT "FLECHES -> CROISIR 
RETURN => VALIDER" 

763 VTAB 23: GET CARS:CH = ASC 4{CARS) 

7894 IF CH = 10 OR CH = B THEN GOSUB 77 
O:I = I + 1: INVERSE : GDSUB 770: NOR 
MAL 

765 IF Cf = 11 OR Ci = 21 THEN GOSUB 7 
70:] = I - 1: INVERSE : GOSUB 770: NO 
RMAL 

766 IF CH = 13 THEN HOME : GOTO 775 

767 GOTO 763 

770 IF I = 4 OR I = O THEN I” ABS (I 
- 3) 


INT (MG / 
INT (MG «+ 10 * MH) + 48:MH 
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772 VTAB I + 8: HTAB 4: PRINT INS(I): R 
ETURN 

275 ON I GOTO 790,790, 780 

780 PRINT : PRINT DS*RUN MENU,D1" 

790 HOME : VTAB 10: PRINT "REVENIR AU N 
IVEAU PRECEDENT (O/N):":: INVERSE : P 
RINT "N®;: NORMAL : CALL — 1008: GET 

RMS: PRINT RMS: IF RMS = "O" OR RMS 
= “o" THEN GOSUB 820 

800 IF 1 = j THEN HOME : 

810 GOTO 210 

820 PRINT : PRINT DS"PR£I® 

830 POKE AC,27: CALL AG: PORE AC,114: C 
ALL AG 

640 POKE AC,27: CALL AG: POKE AC,84: CA 
LL AG: POKE AC,55: CALL AG: P@KE AC,S 
4: CALL AG 

8$0 POKE AC,31: CALL AG: POKE AC,53: CA 
LL AG 

855 POKE AC,27: CALL AG: POKE AC,B4: CA 
LL AG: POKE AC,48. CALL AG: POKE AC, 4 
9: CALI. AG: POKE AC,31: CLL AG: POKE 
AC,49: CALL AG 

860 POKE AC,27: CALL AG: POKE AC,102: C 


GOTO 290 


ALL AG 
870 PRINT : PRINT DS°PR£O* 
880 RETURN 
890 ER = PEEK (222) 


900 JF ER = 6 THEN TEXT : HOME : VTAB 
10: PRINT "PAS D'IMAGE DE CE NOM". P 
RINT “TAPEZ UNE TOUCHE.": GET CARS: # 
OM : GOIO 760 

910 GoTo 760 

920 DATA 80,112,81,]113,101,65,78,110 

930 DATA 4.4,5,5.3,5,8,6.6,7.5,8.8,10, 
10.6,11.6,13.2,15,17.6,20 

940 DATA HAUTEUR SIMPLE - PAS B'INVERS 
ION,HAUTEUR SIMPLE - INVERSION NORMAL, 
E, HAUTEUR DOUBLE - PAS D'INVERSION,HA 
UTEUR DOUBLE - INVERSION NORMALE 

$50 DATA IMPRESSION DE LA MFME IMAGE, À 
UTRE IMAGE, QUITTER LE PROGRAMME 


Programme MENU 


10 RFM f* PROGRAMME MENU ** 
20 POKE 207,1: POKE 2i4,1: POKE 215,1: 
REM »"MANETIES, LECTEURS,MEMOIRE AUXIL 
JAIRE* 
30 N = 3: REM 
. 

40 REM *» TIIRES OÙ MENU: ** 

50 DATA PROGRANME SCHEMATEUR, GRAPHES 
DE FONCTIONS, IMPRESSION SUR IMAGEWRI 
TER 

é60ON=N +3 

70 DATA CONFIGURATION, CATALOGUE DE LA 
DISQUETTE ,QUITTER 


"+ NOMBRE DE PROGRAMMES 


80 REM *%* NOMS DES PROGRAMMES: ** 
90 DATA SCHENATEUR,FONCTION,GRAVURE 
100 RES ** DISPOSITION DU MENU: ** 


110 ND = 1-DE = 12:D$ = 

120 DIM RSINJ,FS{N} 

130 EUR 1 + 1 TO N: READ RS(1): NEXT 

140 FOR I = 1 TO N - 3: READ FS(I): NEX 
T 

150 HOME : VIAB 4: PRINT "M.CAUET": PRI 
NT *OCIOBRE 1986" 

160 GOSUB 220 

170 IF 1 = N THEN HOME : END 

180 IF 1 # N - 1 THEN PRINT : PRINT DS 
*CATALOG®: PRINT : INVERSE : PRINT "R 
ETURN®: NORMAL : GET CARS: GOTO 150 

190 IF I = N - 2 THEN GOTO 340 

200 PRINT : PRINT DS*RUN°FS(I) 

210 REM ** AFFICHAGE MENU ve 

220 FOR 1 = ND YO N: GOSUB 300: NEXT :1 
= ND: INVERSE : GOSUB 300: NORMAL 

230 VTAB 22: PRINT "FLECHES POUR CHOISI 
R-RETURN POUR VALIDER" 

240 VTAB 23: GET MES:ME = ASC (MES) 

250 IF M = 10 OR M = 2] THEN GOSUB 3 
00:I = 1 + 1: INVERSE : GOSUB 300: NO 


CHR$S (4) 


RMAL 

260 IF M = 11 OR M = 8 THEN GOSUB 30 
0:I1 = 1 — 1: INVERSE : GOSUB 300: NOR 
MAL 


270 IF ME = 13 THEN HOME : RETURN 

280 IF ME > 48 AND ME < 49 + N THEN 1 
ME — 48: HOME : RETURN 

290 GOTIO 240 


300 IF I =N+ 1 THEN 1 = ND 

310 IF I ND - 1 THEN I=N 

320 VTAB I + DE - l: PRINT L:"-";R$(I): 
RETURN 

330 REM °° CONFIGURATION ** 

340 HOME : VTAB 10: PRINT "CONF'IGURATIO 
N ACTUELLE:" 

350 VTAB 12: HTAB 1: PRINT "PAS DE MANE 
TTES®: IF PEEK (207) THEN VTAB 12. 
ATAB 1: CALL - 868: PRINT “MANETTES"* 

360 VTAB 13: HTAB 1: PRINT “i LECTEUR": 

IF" PEEK (214) THEN VTAB 13: HTAB 1 
: PRINT “2 LECTEURS" 

370 VTAB 14: HTAB 1: PRINT "PAS DE MEMO 

JRE AUXILIAIRE": IF PEEK (215) THEN 
VTAB 14: HTAB J: CALL - 868: PRINT 
“MEMOIRE AUXILIAIRE" 

380 VTAB 18: HTAB I: PRINT RETURN POUR 
CONFIRMER.": PRINT °'C‘' POUR MODIFIE 
R";: GET CARS: IF CAR$ < > °C° AND CA 
R$ < > fe" GOTO 150 

390 HOME : VTAB 10: PRINT "AVEZ-VOUS DE 
S MANEITESZ(O0/N):".: GET MES: PRINT M 
ES:ME = (MES = ®N") +4 (MES = *0°) » 
2) —- 1: IF ME = - 1 GOTO 390 

400 VTAB 12: PRINT “AVE2-VGUS OEUX iECT 
EURS? (O/N):":: GËT PLS: PRINT PIS.PL 
= ((PLS = N") + (PL$ = "O*) * 2) - I 

1F" PL = — 1 GOTO 400 

410 VTAB 14: PRINT “MEMOIRE AUXILIAIRE? 
(O/N):";: GET MAS: PRINT MAS-MA = ({M 
AS = "N") + (MAS = "O°} “ 2) - 1: 1F 
MA = — I GOTO 410 

420 POKE 246]3,ME + 48: POKE 24620,PL * 

48: POKE 24627,MA + 48 

430 PRINT ŒCHRS (13); CHRS (4) "SAVE ÆEN 
us 

440 PRINT CHRS 


L 


(13); CHRS (4) "RUN MENU 





YCRI=SINCXD/X 


et sa dérivée en 
peintillé 


Programme GRAPHISME 


10 REM 
20 HOMÆ 
30 HGR2 
40 HGR 
50 TEXT 
60 REM °° NETTOIE MEV COMMUTEE #* 
70 PRINT CHR$ (4) "BLOAO MEL.C" 
80 CALL 768 
90 REM ** POINTEURS PROG.MACHINESCHE 
M/CARAC — FONC = GRAV ** 
100 FOR] = 235 TO 237: PORKE 1,0: NEXT 
J10 REM #* PLACE LES PROGRAMMES AU-0ES 
SUS DE HGR2 °° 
120 POKE 103,1: POKE 104,96: POKE 24576 
0 
LA 
130 PRINT CHRS (13): CHRS (4) "RUN MENU 


140 END 


** HELLO ?* 


A ——————— —.— — — "——————————— —… —.…. —…—….…. ………….…… .….…….…….….….……—" .…" —.—. _.… …"…"…"…"…"—" _.— .…" …"_. — — — ——— 


| 











1 
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Récapitulation 


CARAC.SH 


Après avoir saisi ce code sous 


moniteur, 


Pat : 


BSAVE CARAC.SH, 


4000:8D 
4008:25 
4010:49 
4018:6C 
4020:8D 
4028:Aà 
4030:D1 
4038:FB 
4040:18 
4048:41 
4050:70 
4058:9E 
4060:C5 
4068:F3 
4070:20 
4078:4E 
4080:72 
4088 :95 
4090:BE 
4098:E7 
40A0:0C 
40A8:33 
40B0:5A 
40B8:82 
40C0:B0 
40C8:E2 
40D0:00 
40D8:20 
40E0:4D 
40E8: 86 
40F0:C2 
40F8:F8 
4100:2D 
4108:56 
4110:80 
4118:A68 
4120:2D 
4128:36 
4130:40 
4138:0D 
4140:F'5 
4148:00 
4150:4D 
4158:17 
4160:08 
4168:0C 
4170:1C 
4178:1E 
4180:00 
4188:00 
4190:35 
4198:DA 
41A0:17 
41A8:07 
41B0:04 
41B8:2E 
41C0:B7 
41C8:27 


00 
01 
01 
01 
01 
01 
01 
01 
02 
02 
02 
02 
02 
02 
03 
03 
03 
03 
03 
03 
04 
04 
04 
04 
04 
04 
05 


1C 
2C 
54 
74 
92 
B2 
DD 
06 
20 
4D 
7D 
A7 
DI1 
FE 
2B 
57 
83 
A0 
c3 
EF 
15 
3E 
63 
8D 
BD 
E8 
0A 
29 
61 
93 
CB 
09 
39 
62 
88 
B5 
00 
04 
3F 
25 
15 
OC 
24 
65 
05 
06 
06 
JE 
8D 
F6 
12 
06 
2E 
24 
65 
25 
15 
oc 


01 
01 
01 
01 
01 
01 
01 
02 
02 
02 
02 
02 
02 
02 
03 
03 
03 
03 
03 
03 
04 
04 
04 
04 
04 
04 
05 
05 
05 
05 
05 
06 
06 
06 
06 
06 
03 
00 
1E 
00 
1F 
DC 
00 
PE 
00 
00 
00 
17 
3A 
04 
05 
00 
IE 
BC 
E4 
00 
2D 
oc 


PE 
30 
60 
81 

95 
BC 
E7 
CA 


01 
01 
01 
01 
01 
01 
01 
02 
02 
02 
02 
02 
02 
03 
03 
03 
03 
03 
03 
03 
04 
04 
04 
04 
04 
04 
05 
05 
05 
05 
05 
06 
06 
06 
06 
00 
40 
6C 
6F 
oc 
3F 
2E 
1C 
16 
1C 
oc 
1C 
0D 
77 
JE 
oc 
25 
2D 
31 
17 
oc 
24 
36 


23 
3C 
64 
89 
9c 
CZ 
F'o 


DA 
#4 


vous le sauvegarderez 


A$4000, L$6C1 


01 
01 
01 
01 
01 
01 
01 
02 
02 
02 
02 
02 
02 
03 
03 
03 


* 03 


03 
03 
04 
04 
04 
04 
04 
04 
04 
05 
05 
05 
05 
05 
06 
06 
06 
06 
2D 
33 
00 
F6 


41D0: 
41D8: 
41E0: 
41E8: 
41F0: 


41F68: 
4200: 
4208: 
4210: 
4218: 
4220: 
4228: 
4230: 
4238: 
4240: 


4248 
4250 


4258: 
4260: 
4268: 
4270: 
4278: 


4280 


4288: 
4290: 
4298: 
4220: 
4226: 
42B0: 


42B8 


00 
1E 
1C 
oc 
E7 


10 
77 
06 
E? 
38 
93 
00 
16 
12 
00 
*1C 
:2D 
00 
2D 
27. 
39 
96 
:24 
35 
45 
36 
67 
72 
0E 
:1E 


42C0:24 


42C8 


42D0: 


:36 
00 


42D8:2E 


42E0 


:24 


42E8:00 
42F0:36 
42F8:24 


4300 
4308 
4310 
4318 


:15 
#05 
:97 
s2F 


4320:92 
4328:BE 
4330:4D 


4338: 


4340 


:24 
#07: 


4348:17 


4350 


4358: 


:6C 
:0C 


4360:25 


4368 
4370 


:41 
:04 


4378:2D 


4380: 


:0C 


4388:92 


4390: 


4398 


43A0: 


4328 
43B0 


“Ed 
2:36 
:43 
:24 
:2D 


43B8:2D 


43C0 
43C8 
43D0 
43D8 
43E0 


125 
:00 
:04 
:36 
:FE 


38 
3E 


DA 


3E 
2B 
24 
25 
25 
1C 
65 
00 
F6 
1B 


43E8:0C BO 


27 
1C 
25 
3F 
2D 


00 
A 
08 
1C 
89 
oc 
OC 
00 
3E 
47 
1E 
BE 
F2 
06 
24 
3A 
3F' 
24 
3F 
2B 
4D 
24 

oc 
DF 
06 
24 

4D 
56 
36 
2D 
3C 
00 
2D 
DF 
06 
F6 
2D 
24 

00 
36 
24 

OC 
09 

F6 

3F 
38 

3F 
40 
1E 
00 
2B 
91 

3F 
AD 
00 
00 
24 

dE; 
E0 
8A 

3F 
24 

36 


F5 
AD 
35 
36 
15 


2D 
00 
05 
oc 
3F 
1C 


A7 


2D 
45 
24 
dE 
3F 
24 
36 
15 
24 
39 
06 
24 
FC 
00 
06 
3C 
24 
Le 
EO 
24 
24 
92 
36 
36 
1F 
36 
24 
64 
04 
33 
09 
1C 
00 
36 
18 
00 
05 
17 
04 
2D 
3F 
B3 
1E 
25 
43 
2D 
3F 
BF 
BF 
00 
15 
36 
2C 
28 
24 
21 


Aa 
F'6 
00 
05 
F6 


15 
08 
00 
06 
04 
rue 
95 
38 
2B 
67 
24 
27 
24 
1E 
3E 
2D 
B7 
00 
OC 
1B 
52 
00 
00 
6C 
3F 
1C 
BC 
DF 
E7 
17 
2E 
3F 
00 
2C 
2D 
00 
2E 
36 
24 
F6 
BE 
76 
IC 
00 
2E 
00 
F5 
1E 
2A 
04 
00 
2B 
04 
27 
36 
36 
1A 
2D 
F5 
28 
15 
00 
00 


36 
3F 
oc 
00 
3E 


36 
16 
91 
00 
00 
06 
OA 
70 
25 
E4 
2C 
2C 
OC 
3F 
00 
2D 
1A 
11 
2D 
36 
3A 
9B 
73 
09 
3F 
36 
06 
33 
24 
05 
1E 
20 
77 
2D 
15 
24 
00 
36 
24 
1E 
35 
16 
IG 
oc 
2D 
4B 
1E 
0E 
2D 
00 
40 
AD 
00 
24 
15 
15 
2D 
25 
36 
AD 
36 
18 
58 


43F0:0C 
43F'8:41 
4400:1C 
4408:36 
4410:FF 
4418:6E 
4420:36 
4428:9A 
4430:36 
4438:2D 
4440:1E 
4448:F'7 
4450:08 
4458:04 
4460:24 
4468:1C 
4470:34 
4478:1E 
4480:04 
4488:38 
4490:F5 
4498:1A 
44A0:36 
44A8:36 
44B0:1A 
44B8:36 
44C0:04 
44C8:36 
44D0:36 
44D8:00 
44E0:04 
44E8:39 
44F0:00 
44F 8:00 
4500:1B 
4508:04 
4510:04 
4518:E7 
4520:1B 
4528:00 
4530:47 
4538:15 
4540:2D 
4548:24 
4550:96 
4558:1C 
4560:00 
4568:24 
4570:40 
4578:25 
4580:6D 
4588:B0 
4590:15 
4598:3F 
45A0:43 
45A8:F8 
45B0:41 
45B8:F5 
45C0:04 
45C8:2D 
45D0:33 
45D8:00 
45E0:4D 
45E8:95 
45F0:26 
45F8:1B 
4600:4D 
4608:00 


BO 


PA à 


2D 


E7 


25 


A8 


2C 


40 


36 
1E 
24 
21 
36 
24 
2D 
45 
00 
36 
36 


2D 


" 67 


41 
00 
04 
27 
JE 
41 
24 
JE 
25 
2D 
65 
25 
2D 
92 
36 
36 
45 
2B 
oc 
4D 
24 
45 
3E 
24 
ic 
45 
2D 
3 
24 
04 
2C 
oc 
73 
92 
27. 
43 
40 
1C 
1C 
00 
24 
43 
15 
1C 
36 
28 
00 
1F 
AB 
1E 
F6 
43 
28 
73 
43 


36 
15 
00 
00 
26 
E4 
OC 
23 
8A 
36 
36 


15 
34 
36 
41 

00 
24 
4D 
36 
04 
1E 
1C 
25 
35 
16 
25 
4A 
3E 
3E 
23 
E5 
45 
1C 
TE 
E3 
68 
45 
E7 
23 
0E 
04 
24 
00 
25 
2D 
1B 
JE; 
00 
43 
43 

16 
1F 
28 
oc 
11 

16 
04 
3F 
FD 
B8 
40 
15 

JE" 
3F 
43 
15 
65 
2B 





EO BF 04 


D2 8F 44 











4610:15 1E IE 1E 2D 2D 04 00 0C08:0B DO 03 CE 06 OBCE 05 0E28:0B 91 06 AD 83 CO AD 83 








4618:45 23 BS 12 27 1F SE 67 0C10:0B 60 AD 00 CO 10 03 68 0E30:CO0 AD OA 0B 91 06 88 DO 
4620:40 23 27 00 31 76 DF 63 0C18:68 60 20 4E OC C9 00 90 0E38:DD E6 07 CA DO D6 AD 81 
4628:0C OC 20 24 00 2A 28 30 0C20:2A C9 CO BO 26 AE 05 0B 0E40:C0 60 A9 00 85 08 85 06 
4630:36 DF 40 E3 36 36 36 04 0C28:AC 06 O0B FO 07 EO 18 BO 0E48:A9 20 85 07 A9 40 85 09 
46368:00 1B A8 36 IE 2D 45 2B 0C30:1A 4C 38 OC EO 00 90 13 0E50:A2 20 4C DB OD A9 00 85 
4640:20 1C 04 00 D8 36 AE 45 0C38:20 13 F4 A4 E5 B1 26 29 0E568:08 85 06 A9 40 85 07 A9 
4648:AB 45 23 24 04 00 28 F5 0C40:7F 25 30 FO 02 A9 O1 4D 0E60:20 85 09 A2 20 AO 00 Bi 
4650:36 FE 24 24 27 00 27 45 0C48:09 OB 60 A9 01 60 AD OA 0E68:08 8D OF OB B1l 06 91 08 
4658:2B 368 3F 96 09 FI IE 2E 0C50:0B FO 07 A9 BF 38 ED 07 0E70:AD OF OB 91 06 88 DO EF 
4660:25 00 D2 2D 45 23 IC 3F 0C58:0B 60 AD 07 OB 60 AD 02 0E78:E6 07 E6 09 CA DO E6 60 
4668:1E 36 36 26 00 36 3E 1C 0C60:0B DO 03 4C E2 OC C9 01 0E80:A9 00 85 06 85 06 A9 40 
4670:24 45 2B 2D 04 00 3F 36 OC68:FO0 1F C9 02 FO 21 C9 03 0E88:85 07 A9 20 85 09 A2 20 
4678:0E 2D 20 24 E4 F7 26 00 0C70:FO0 23 C9 04 FO 2A C9 05 0E90:A0 00 B1 06 91 06 88 DO 
4660:2D F8 13 IE O0D 36 27 00 0C78:FO0 31 C9 06 FD 4E C9 07 0E98:F9 E6 07 E6 09 CA DO FO 
4688:E3 OD AD 36 36 DF 40 23 0C80:D0 06 20 AB OC 4C CC OC 0EA0:60 20 55 OE 8D 55 CO Ea 
4690:04 00 38 1E 2E 36 2F 09 0C88:60 20 EF OC FO 54 60 20 OEAB:EA 68D 54 CO EA EA AD 00 
4698:E5 2C E4 04 00 2C 26 F8 0C90:05 OD FO 4E 60 20 05 OD OEBO:CO 10 F1 C9 8D DO 07 20 
46A0:1B 0E 96 IE 4D El 04 00 0C98:D0 05 20 EF OC FO 43 60 0EB8:55 OE 8D 10 CO 60 C9 AO 
4628:34 32 36 26 08 45 23 FC OCA0:20 05 OD FO 3D 20 EF 0C OECO:D0 09 20 42 0E 8D 10 CO 
46B0:1B 36 15 04 00 60 OC 3F OCA8:F0 38 60 20 05 OD 8D OF OEC8:4C A4 0E C9 8B DO 09 20 
46B8:16 IA IE 2D AD 1E 3F 04 O0CB0O:0B 20 EF OC AE 01 OB E8 O0OEDO:CC 11 8D 10 CO 4C A4 O0E 
46C0 : 00 OCB8:CD OF 0B FO 25 CE 0F 0B 0ED8:C9 8A DO 09 20 7A 12 8D 
OCC0:DO 06 AC 03 0B 8C OF 0B 0EE0:10 CO 4C A4 DE C9 95 DO 

OCC8:CA DO ED 60 20 05 OD 8D 0EE8:03 20 44 10 C9 88 DO 03 

> : , O0CD0O:0F OB AD 03 0B 18 69 01 0EFO0:20 53 OF 8D 10 CO 4C A4 
Récapitulation 0CD8:38 ED OF 0B 8D 0F 0B 4C OEF8:0E 8D 10 CO AD 00 CO 10 
SCHEM GC OCEO0:B1 OC AE 05 OB AC 06 0B 0F00:FB C9 8B DO 06 20 CC 11 
» OCE8:20 4E OC 20 57 F4 60 AD 0F08:4C F9 OE C9 8A DO 06 20 

OCF0:06 0B DO 06 AD 05 O0B 4C 0F10:7A 12 4C F9 OE C9 95 DO 

Après àâvoir saisi ce code seus 0CF8:08 O0D A9 FF 20 08 OD 6D 0F18:06 20 44 10 4C F9 OE C9 
moniteur, vous le sauvegarderez 0D00:05 0B 4C 08 OD 20 4E OC 0F20:88 DO 06 20 53 0F 4C F9 
par : 0D08:38 4C OF OD ED 03 OB CD 0F28:0E C9 D7 DO 06 20 FE OD 
BSAVE SOUR1S.C, AS$BO1,L$S9ICE 0D10:03 0B FO 09 BO F6 CD 01 0F30:4C F9 O0E 8D 10 CO 60 EO 
0D18:0B B0O 02 A2 00 60 A9 00 0F368:00 20 00 EO 80 20 80 EO 

OBO1:EA EA EA EA EA EA EA 0D20:85 3C 85 42 A9 F8 85 3E 0F40:28 20 28 EO A8 20 A8 EO 
OBOB:EA EA EA EA EA EA EA EA 0D28:60 20 IE OD A9 40 85 43 0F48:50 20 50 EO DO 20 DO DO 
OB10:EA EA 4C 955 O0E 4C FE OD 0D30:AD 10 O0B 85 3D 18 69 1F 0F50:00 DO 00 A2 00 20 2F 11 
0B18:4C 3F OD 4C 54 OD 4C A4 0D38:85 3F 18 20 11 C3 60 20 0F58:20 AA OF A2 04 20 2F 11 
OB20:0D 4C D8 OD 4C 2C 14 4C 0D40:1E OD A9 20 85 3D A9 3F O0F60:20 AA OF A2 08 20 2F 11 
0B28:F9 OE 4C Al OE 4C 80 OE 0D48:85 3F AD 10 OB 85 43 36 0F68:20 AA OF A2 0C 20 2F 11 
0B30:4C 42 0E 20 F1 O0B 20 FD 0D50:20 11 C3 60 A9 20 8D 10 O0F70:20 AA OF A2 10 20 2F 11 
0B38:0B 20 12 OC DO 03 4C 33 0D58:0B 20 29 OD A9 O1 8D 11 0F76:20 AA OF A2 14 20 2F 11 
0B40:0B 20 06 OC 20 F1 OB 20 0D60:0B 8D 55 CO 20 92 OD AD 0F'60:20 AA OF AD 62 CO 10 01 
0B48:06 OC 20 12 OC DO 03 4C 0D68:04 0B C9 02 90 F3 EE 11 0F88:60 A2 18 20 2F 11 20 F6 
0B50:44 0B 20 FD OB AD 05 0B 0D70:0B AD 11 0B 20 8B OD 6D 0F90:0F A5 06 18 69 28 90 OA 
0B58:8D 0B OB AD 06 OB 8D OC 0D78:10 OB 20 29 OD 20 92 OD 0F98:E6 07 A6 07 EO DF FO 09 
0B60:0B 20 5E OC 20 FD OB 20 0D80:AD 11 OB CD 04 OB 90 Eë6 OFAO0:E6 09 85 06 85 08 4C 68E 
0B68:12 OC DO 27 AD 02 OB DO 0D88:4C 54 OD A2 05 OA CA DO OFA8:0F 60 A2 20 AO 00 B1 06 
0B70:1F CE 07 OB 20 12 OC DO 0D90:FC 60 AD 00 CO 10 FB C9 0FB0:68D OF 0B C8 Bl 06 88 91 
0B78:14 20 FD OB 20 12 OC DO 0D98:8D DO 05 68 68 8D 54 CO 0FB8:06 C8 CO 27 90 F5 AD 62 
0B680:09 20 #6 OC EE 07 OB 4C ODAO:8D 10 CO 60 A9 00 85 08 OFCO:CO0 10 08 AD OF 0B 91 06 
0B88:33 0B 20 06 OC EE 07 0B ODA8:A9 20 85 09 A2 20 AO 00 OFC8:4C EE OF AD 83 CO AD 83 
0B90:4C 61 O0B EE 07 OB AD 0OB ODBO:B1 06 49 FF 91 06 868 DO 0FDO:CO AO 00 B1 08 AO 27 91 
0B98:0B 8D 05 O0B AD OC OB 6D ODB8:F7 E6 07 E6 09 CA DO EE 0FD8:06 AO 00 C8 B1 08 88 91 
0BA0:06 OB AD DA OB DO 23 AD ODCO:60 AD 83 CO AD 83 CO A9 0FE0:08 C8 CO 27 90 F5 AD 0F 
0BA8:07 OB CD 08 0B 90 24 A9 0DC8:00 85 08 85 06 A9 EO 85 OFE8:0B 91 08 AD 81 CO E6 07 
OBBO:BF 38 ED 07 0OB 6D 07 0B 0DDO:07 A9 20 85 09 A2 20 60 O0FFO0:E6 09 CA DO B7 60 AD 8B 
OBB8:8D OA OB AD 0D 0B 68D 05 0DD8:20 C1 OD AO 00 B1 08 48 0FF8:C0 AD 8B CO AO 00 B1l 06 
OBC0:0B AD 0E OB 6D 06 0B 4C ODE0:AD 09 OB FO 06 68 31 06 1000:8D 0F 0B C8 B1 06 88 91 
OBC8:33 OB 20 4E OC CD 06 0B ODE8:4C EE OD 68 11 06 91 08 1008:06 C8 CO 27 90 F5 AD 83 
0BDO:BO 01 60 20 12 OC FO 0B 0DF0:88 DO EA E6 07 E6 09 CA 1010:C0 AD 83 CO AO 00 B1 08 
0BD8:20 FD OB 20 12 OC DO F8 ODF8:D0 EI AD 81 CO 60 20 C1 1018:6D OA OB AD 8B CO AD 68B 
OBEO:4C EE OB 20 06 OC 20 12 0E00:0D 20 65 0E A9 DO 85 07 1020:C0 AD OA OB AO 27 91 06 
OBE8:0C FD F8 20 FD O0B 4C 55 0E08:A9 00 85 06 A2 10 AD 683 1028:A0 00 AD 83 CO AD 83 CO 
OBFO0:0B CE 07 O0OB 20 12 OC FO 0E10:CO AD 83 CO AO 00 BI 06 1030:C8 B1 068 88 91 08 CB CO 
08F6:F8 EE 07 OB 60 EE 05 0B 0E18:8D OF 0B AD 6B CO AD 8B 1038:27 90 F5 AD OF OB 91 08 
0C00:D0 03 £E 06 0B 60 AD 05 0E20:C0 B1 06 6D OA OB AD ©0F 1040:AD 81 CO 60 A2 00 20 2F 
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1048:11 20 9B 10 A2 04 20 2F 1268:20 28 13 20 EB 13 A2 20 1488:6D OC 0B BO 12 AC 06 0B 


1050:11 20 9B 10 A2 O8 20 2F 1270:20 28 13 20 15 14 AD 81 1490:F0 04 C9 18 BO 19 AA 686 
1058:11 20 9B 10 A2 OC 20 2F 1278:C0 60 A2 40 20 28 13 20 1498:48 20 57 F4 4C AF 14 AC 
1060:11 20 9B 10 A2 10 20 2F 1280:BA 13 A2 44 20 28 13 20 1440:06 0B DO O0B C9 18 BO 07 
1068:11 20 9B 10 A2 14 20 2F 1288:78 13 A2 48 20 28 13 20 14R8:AA C8 68 48 20 57 F4 38 
1070:11 20 9B 10 AD 62 CO 10 1290:9B 13 A2 4C 20 28 13 20 14B0:AD 05 OB ED 0C OB 90 OB 
1078:01 60 A2 18 20 2F 11 20 1298:78 13 A2 50 20 28 13 20 14B8:AC 06 OB A4 68 20 57 F4 
1089:E5 10 A5 06 18 69 28 90 12A0:9B 13 A2 54 20 28 13 20 14C0:4C CE 14 AA 68 AC 06 0B 
1088:0A E6 07 A6 07 EO DF FO 12A8:78 13 AD 62 CO 10 09 A2 14C8:F0 04 88 20 57 F4 60 
1090:09 E6 09 85 06 85 08 4C 12B0:84 20 28 13 20 C5 13 60 

1098:7F 10 60 A2 20 AD 62 CO 12B8:AD 8B CO AD 6B CO A2 58 

10A0:10 OA AO 27 B1 06 8D 0F 12C0:20 28 13 20 C5 13 A2 SC Récapitulation 
10A8:0B 4C CF 10 AD 83 CO AD 12C8:20 26 13 20 02 14 A2 60 

10B0:83 CO AO 27 B1 08 8D 0F 12D0:20 26 13 20 15 14 AD 83 GRA V.C 

10B6:0B 86 B1 08 CB 91 08 88 12D8:C0 AD 83 CO A? 64 20 28 

10C0:D0 F7 AO 27 B1 06 AO 00 12E0:13 20 BA 13 A2 68 20 28 Après aveir saisi ce cede sous 
10C8:91 08 AD 81 CO AO 27 88 12E8:13 20 78 13 A2 6C 20 28 EN TS RER Re 
10D0:B1 06 CB 93 06 88 DO F7 12F0:13 20 9B 13 A2 70 20 28 ER 

10D8:AD OF OB 91 06 E6 07 E€ 12F8:13 20 78 13 A2 74 20 28 BSAVE GRAV.C, AS801,LS25F 
10E0:09 CA DO B9 60 AD 83 CO 1300:13 20 9B 13 A2 78 20 28 

10E8:AD 83 CO AO 27 B1 08 8D 1308:13 20 76 13 A2 7C 20 28 0801:A5 CE 20 ED FD 60 20 
10F0:0F 0B 88 B1 08 C8 91 08 1310:13 20 C5 13 A2 5C 20 28 0808:93 09 A9 1B 20 81 09 A9 
10F6:88 DO F7 AD 8B CO AD 8B 1316:13 20 02 14 A2 60 20 28 0810:6E 20 8i 09 A5 07 29 06 
1100:C0 A9 27 B1 06 8D 0A 0B 1320:13 20 15 14 AD 81 CO 60 0818:FO 03 4C 3C 0A AS 07 6A 
1108:AD 83 CO AD 83 CO AD CA 1328:BD 44 11 65 09 BD 45 11 0820:6A 6A 29 CO 85 07 A9 20 
1110:0B AC 00 91 06 AD 6B CO 1330:85 06 BD 46 11 85 07 BD 0828:90 02 A9 40 85 1B AO 00 
1118:AD 8B CO AO 27 68 BI 06 1338:47 11 85 06 60 AO 00 B1 0830:84 1A 84 09 A9 OD 20 61 
1120:C8 91 06 88 DO F7 AD OF 1340:08 91 06 C8 CO 28 90 F7 0838:09 A9 1B 20 81 09 A9 5A 
1128:0B 91 06 AD 81 CO 60 BD US MER A os 0840:20 81 09 A9 00 20 81 09 
1130:37 OF 85 09 BD 36 OF 65 1350:C0 28 90 F7 60 A9 08 80 0848:A9 20 20 61 09 A9 1B 20 
1138:08 BD 39 OF 85 07 BD 3A 1358:0F O0B 20 65 13 E6 07 CE 0850:81 09 A9 54 20 81 09 A9 
1140:0F 85 06 60 20 00 1E BF 1360:0F 0B DO F6 60 A2 04 E6 0858:31 20 81 09 A9 36 20 81 
1146:1F 80 20 00 20 28 23 80 1368:09 20 3D 13 CA FO 08 Eë6 0860:09 A9 1B 20 81 09 A9 3E 
1150:1F A8 20 28 20 50 23 A8 1370:07 20 49 13 4C 67 13 60 08668:20 81 09 A9 FF 65 19 A6 
1158:1F DO 20 50 23 DO DD CO 1376:A9 08 8D OF 0B 20 688 13 0870:1B A4 1A DO OC 68A 291F 
1160:DE 00 DC CO DO 00 1E BF 1380:C6 07 CE OF OB DO F6 60 0878:D0 07 66 07 B0 62 36 26 
1166:E0 00 1E BF DF 80 EO 00 1388:A2 04 C6 09 20 3D 13 CA 0880:07 6A 48 98 48 A9 1B 20 
1170:E0 28 E3 80 DF A8 EO 28 1390:F0 08 C6 07 20 49 3 4C 0888:81 09 A9 47 20 81 09 A9 
1178:E0 50 E3 AB DF DO EO 50 1398:6A 13 60 A9 08 8D OF O0B 0890:30 20 61 09 24 07 10 0D 
1180:E3 DO DD C0 23 DO JE BF 13A0:20 3D 13 CE 0F OB FO i1 0896:A9 35 20 61 09 A9 36 20 
1188:40 50 3F DO 23 A8 20 50 13A8:A5 07 18 69 04 85 07 A5 068A0:81 09 38 BO OA A9 32 20 
1190:40 28 3F A6 23 80 20 28 13B0:09 18 69 04 85 09 4C AO 08A8:681 09 A9 38 20 81 09 A9 
1196:40 00 3F 80 20 00 DO 00 13B8:13 60 A2 08 20 3D 13 20 08B0:30 20 81 09 A9 01 85 08 
11A0:D0 00 D1 40 DD CO 1E BF 13C0:D0 13 4C BC 13 A2 08 20 08BB:E6 19 A4 19 CO 28 90 0E 
11A8:E3 DO 1E BF 00 50 FF DO 13C8:49 13 20 DO 13 4C C7 13 08C0:A9 OD 20 81 09 A9 OA 20 
11B0:E3 A6 EO 50 00 28 FF A8 13D0:CA FO 15 A5 09 18 69 04 08C8:81 09 68 68 10 9D 68 AA 
11B8:E3 80 EO 28 00 00 FF 80 13D8:85 09 A5 06 18 69 28 90 08D0:85 1A 668 85 1B 46 68A 46 
11C0:E0 00 DO 00 23 DO 1E BF 13E0:02 E6 07 85 06 4C EA 13 08D8:A9 00 85 06 A2 08 DO 06 
11C8:20 00 1E BF A2 00 20 28 13E8:68 668 60 A2 0E AO FF BI O8E0:BO 74 30 DO 10 EB A4 19 
11D0:13 20 BA 13 A2 04 20 28 13F0:06 91 06 88 DO F9 B1 06 08E8:B1 1A 25 08 C9 01 66 06 
11D6:13 20 55 13 A2 08 20 28 13F8:91 08 C6 07 C6 09 CA DO O8FO0:CA 24 07 18 08 A5 09 49 
11E0:13 20 9B 13 A2 OC 20 28 1400:EC 60 A2 0E AO 00 B1 06 08F8:01 85 09 DO E9 16 A5 1B 
11E80:13 2013513 A2 102028 1408:91 08 C8 DO F9 E6 07 E6 0900:693 04 AO 1C 64 09 24 09 
11F0:13 20 9B 13 A2 14 20 28 1410:09 CA DO FO 60 AO 00 Bi 0906:P0 25 06 IA 90 1D 69 EO 
11F8:13 20 55 13 AD 62 CO 10 1418:06 91 08 CB DO F9 E6 07 0910:18 AO 04 84 09 24 09 FO 
1200:09 A2 80 20 28 13 20 C5 1420:E6 09 Bi 06 91 08 C8 CO 0918:14 A5 1A 69 50 49 FO FO 
1208:13 60 AD 8B CO AD 8B CO 1428:40 DO F7 60 AD OA O0B 6D 0920:02 49 FO 85 1A A5 1B 29 
1210:A2 18 20 28 13 20 CS 13 1430:0C 0B A9 00 680 OB O0B 6D 0928:E0 90 02 69 EO 66 1A 85 
1218:A2 1C 20 28 13 20 EB 13 1436:0D OB 682 OË 0B 20 6A 14 0930:1B A9 00 85 09 FO 00 DO 
1220:A2 20 20 28 13 20 15 14 1440:18 AD OD O0B 6D OZ OB 8D 0938:AD A5 06 24 07 7002439 
1228:AD 83 CO AD 83 CO A2 24 1448:0D 0B 90 O6 EE 0E OB 20 0940:FF 20 61 09 24 07 10 06 
1230:20 28 13 20 BA 13 A2 26 1450:6A 14 38 AD OB OB ED 0E 0946:A5 09 49 01 85 09 DO E9 
1236-20" 28:E3 20,55 F3 B2F2E 1458:0B 8D 0B OB BO E2 CE OC 0950:06 08 30 8E 10 8E 85 07 
1240:20 26 13 20 9B 13 A2 30 1460:0B 20 6A 14 AD OC 0B DO 0958:A9 1B 20 61 09 A9 41 20 
1248:20 28 13 20 55 13 A2 34 1468:D7 60 AD 07 OB 18 6D OE 0960:81 09 A9 OD 20 81 09 A9 
1250:20 26 13 20 9B 13 A2 38 1470:0B BO 07 C9 CO BO 03 20 09668:0A 20 81 09 A9 iB 20 81 
12:56:20"28: "13 520"55/°134A2-3€, 1478:83 14 38 AD 07 OB ED O0E 0970:09 A9 44 20 61 09 A9 00 
1260:20:26 13 20 C5 13 A2. 1C 1480:0B 90 4B 48 AD 05 OB 18 0978:20 81 09 A9 20 20 EA 03 
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0980:60 A4 FC A6 IC 6C FA 00 90E0:A9 11 8D EC B7 20 E6 9C 





0988:99 80 CO B9 84 CO 29 80 90E8:CE ED B7 FO 46 20 CB 9C 

0990:F0 F9 60 A5 06 OA OA OA 90F0:A0 EB 8C AE AA AD AE AA : e e 

0998:0A 85 FC A9 00 85 1B A5 90F8:18 69 23 AB BD AE AA C9 Récapitulation 

09A0:06 29 07 09 CO 85 1C A0 9100:03 FO E5 A2 00 B9 BB B3 FONC C 

09A8:05 B} 1B C9 38 DO 3D A0 9108:FO0 29 DD 75 AA DO E6 C8 F 

09B0:07 B1 1B C9 18 DO 35 A0 9110:E8 EO 1E DO F9 B9 9C B3 

09B8:0B Bl 1B C9 01 FO 02 DO 9118:29 04 DO 04 A2 OD DO 15 Après avoir saisi ce 

09C0:2B AO 08 B1 1B 85 FA A5 9120:AC AE AA B9 B9 B3 8D ED code sous moniteur, 

09C8:1C 85 FB 20 81 09 AO 0F 9128:B7 B9 B8 B3 30 C7 68D EC vous le sauvegarderez 

09D0:B1 1B 85 FA A0 OC Bi 1B 9130:B7 DO 0E A2 06 8E 5C AA par : 

09D8:C9 31 DO OF A9 09 20 81 9138:20 F5 9C 20 93 FE 4C D5 BSAVE SOURIS.C, A$301,L$A2 

09E0:09 A9 5A 20 81 03 A9 OD 9140:A6 8D AF AA 20 CB 9C A2 

08:20 81 09 60 A0 OA B1 1B 9148:0C A5 1E A4 1F 20 EE 9C 0301:A9 FO 85 06 4C OC 03 

09F0:C9 20 DO 17 C8 BI 1B C9 9150:AD AF AA FO 03 20 EA 9C 0308:A3 0B 85 06 A3 60 85 07 

09F8:58 DO 10 C8 BI 1B C9 FF 9158:20 BB 9C AD AF AA FO 40 D do ne me EL 

0A00:D0 09 A9 81 85 FA A9 91 9160:2C BO AA 30 OA A5 50 8D RE M A 

0A06:85 FB 60 AD 68 FA C9 CO 9168:BB B4 A5 51 8D BC B4 38 DR AR Dr Ee0 CDS TRS EST 

0A10:D0 18 AO 0B B1 1B C9 08 9170:AD BB B4 E9 04 85 1E 8D PORTE ee SRE PACE 

OA18:D0 10 C8 Bi 1B C9 48 DO 9178:F0 B7 AD BC B4 E9 00 85 0330:FC 01 91 06 88 DO F8 68 

6A20:09 A9 26 85 FA A9 92 85 9180:1F 8D F1 B7 A9 04 6D DA GREEN AR RS Re 

0A28:FB 60 4C 02 OA 48 AD F1 9188:9C 18 6D BD B4 8D AB AA 0340:C0 AD 83 CO A3 00 85 08 

0A30:C0 49 10 29 70 DO F7 68 9190:A9 00 8D E2 9C 8D AF AA A RDA SU UNE A 

0A38:8D FO CO 60 A9 59 85 FE 9198:AD C9 B3 FO 22 20 D9 9C 0350:85 03 A2 20 60 20 3E 03 

CA40:A9 92 85 FF AO 00 B1 FE 91A0:AE AE AA EE F1 B7 E6 1F 0358:A0 00 B1 08 11 06 91 08 

0A48:C9 FF FO 13 20 81 09 18 91A8:E8 EO FE BO 1D BD BD B3 0360:88 DO F7 E6 07 E6 03 CA 

0AS0:A5 FE 69 01 85 FE A5 FF 91B0:D0 A6 20 EA 9C 20 BB 9C 0368:D0 EE AD 61 CO 60 A3 00 

0A58:69 00 85 FF 38 BO E5 60 91B8:A9 00 85 48 8D DA 9C AD 0370:85 08 85 06 A3 40 85 07 
91C0:AB AA 8D E2 9C 20 D9 9C 0378:A3 20 85 09 A2 20 AO 00 
91C8:FO0 56 AD BC B3 FO E3 20 0380:B1 08 8D 00 03 B1 06 91 
91D00:BB 9C AD BD B3 8D ED B7 0388:08 AD 00 03 31 06 88 DO 

Récapitulation 91D8:E6 1F 20 E6 9C AD BC B3 0390:EF E6 07 E6 09 CA DO Eé 
91E0:8D EC B7 4C 19 9C BD BB 0398:60 20 3E 03 20 7E 03 AD 


CHA RGE. OBJ 91E8:B3 8D EC B7 E8 BD BB B3 03A0:81 CO 60 


91F0:8D ED B7 8E AE AA A9 B7 


Après avoir saisi ce code sous 91F8:A0 E8 20 B5 B7 30 11 A2 

moniteur, vous le sauvegarderez 39200:08 4C DA 9C A0 00 B3 BB 

Fe 9208:B4 91 1E C8 CO 00 DO F6 re e e 

rs CHARGE.OBJ, AS$9000, LS22B 9210:60 A0 B3 DO 02 AC B4 A9 Récapitulation 
9218:BB 8D FO B7 8C Fi B7 60 DHEL CG 

9000:A9 00 8D F6 03 A9 9B 8D 9220:AD AC AA 85 1E AD AD AA di 

9008:F? 03 A9 4C 8D F5 03 A2 9228:85 1F 60 ; Ë — 

9010:00 BD 2B 90 9D 00 9B E8 Re An 0 

9018:D0 F7 BD 2B 91 9D 00 9C a — mm — Us monivels, 

9020:E8 DO F7 A9 SA 8D O1 90 ; 5 x VOUS “le apres Ederes 

9028:4C D4 A7 A5 1E 8D AC AA Récapitulation se ni 

9030:A5 IF 8D AD AA AO 00 8C ERREUR se 4 

9038:EB B7 20 B7 00 C9 22 DO 

D a 0e Do e Dtb Tia 0300:A9 DO 85 09 A9 00 85 08 

9048 :C9 22 FO OC 09 80 99 75 Après avoir saisi ce code sous COR NLAN AE CE RPRNSE EC 

90S50:AA C8 CO 1E 90 EF BO 34 moniteur, vous le sauiegarderez a. + _ Fe + ce : =. 

9058:A9 EF 85 C2 20 B1 00 CO par : 3 

9060:00 DO 4C 60 AS B8 48 AS BSAVE ERREUR, A$3A3,L10 pt M OA Ou 

NP TN A CR 0328:00 AO 00 91 08 88 DO FB 

9070:08 A2 A3 20 F5 9C 4C 12 03A3:68 A8 68 A6 DF RARRÉ RE PL ERCEREEN TER 

9078:D4 68 85 B9 68 85 B8 20 03A6:9A 48 98 48 60 

9080:E3 DF 85 1E 84 1F AO 00 

SAP ET ER CAMP EreS La qualité de ce programme et son volume le destinaient à être 

nie aie de ER vendu par Pom's en “produits édités à part”. 

er re Nous avons préféré vous foire profiter de ses nombreuses 

90A0:A0 00 BI 1E 09 80 99 75 AU Re ; 

D CRIS AND den | possibilités en l'insérant dans ces pages : la place nous 

90B0:A0 99 75 AA CB CO IE DO manquant pour les sources, seuls les fichiers nécessaires ou 

90B8:F8 8D BO AA 20 F5 9C 20 | fonctionnement sont listés ici. 

90C0:B7 00 FO 12 20 BE DE 20 Les lecteurs qui souhaitent approfondir la programmation ou 


90C8:67 DD 20 52 E7 AS 51 C9 
90D0 :02 90 B9 4E BO AA A9 01 
90D8:8D F4 B7 A9 10 8D ED B7 


adopter le logiciel à leurs besoins trouveront cette fois les 
| sources sur la disquette d'accompagnement. 
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Ÿà ui n'a jamais eu de 


Fi problème à relire 
un programme 
> COMplexe, constitué 
de nombreuses sous- 
routines et donc truffé de 
GOTOSs et GOSUBs, voire de 
RUNSs ? En effet, si beaucoup 
de Basics autorisent les sauts 
vers des routines précédées 
d'un nom, d'une étiquette, 
l'Applesoft n'accepte que les 
sauts spécifiés par numéros 
de ligne, d'où des listings 
souvent très hermétiques. 





Le but de cet article est donc de 
modifier les commandes GoTo, 
GOSUB et RUN par l'intermédiaire 
de l'ampersand (se), afin d'obtenir 
une plus grande facilité pour 
réaliser et maintenir les 
programmes. 


Fonctionnement 


Bien que le listing soit 
entièrement commenté, il est 
nécessaire de présenter certains 
sous-programmes de la ROM 
Applesoft : 


CHRGET : positionne TXTPTR 
sur le caractère suivant, puis va le 
lire. Lorsque c'est un espace, il 
recommence. On peut donc faire 
précéder le début du REM d'autant 
de blancs que l'on voudra, sans 
pour autant devoir les remettre 
dans l'étiquette qui suit le coro 
ou le GosuB. D'autre part, 
CHRGET signale les fins 
d'instruction et donc aussi les 
fins de ligne de programme en 
mettant la retenue (carry) à 1. 


DATA : se place à la fin de 
l'instruction en cours. Si on fait 
un JAP, il permet d'exécuter la 
prochaine instruction. Ainsi, on 
obtient coucou dans l'exemple 


suivant avec un Saut 4 GOTO 
"TRUC : 
100 PRINT "SALUT": REM TRU 


C 
110 PRINT "COUCOU" 


GOTO: va tout d'abord lire le 
numéro de ligne pointé par 
TXTPTR, le range en LINNUM, puis 
continue par GOTOBIS, qui 
recherche la ligne stockée en 
LINNUM. GOGO se branche donc 
automatiquement en GOTOBIS, 
après avoir stocké en LINNUM le 
numéro de la ligne suivant le REM 
voulu. 


GOSUB : place d'abord sur la 
pile du 6502 la valeur de TXTPTR 
(2 octets) puis de CURLIN (2 
octets) qui est le numéro de la 
ligne en cours d'exécution et 
enfin le type de commande ($B0 
pour GoSUB). Puis GosUB appelle 
GoTo et exécute la ligne par 
NEWSTT ($D7D2). Le RETURN 
reprendra les informations de la 
pile pour savoir où il faut 
reprendre le programme. Por les 
supprimera tout simplement, sans 
les utiliser. 


Utilisation 


Il suffit de modifier légèrement 
vos lignes de façon à répondre à 
la syntaxe suivante : 


10 & GOSUB "ROUTINE" 
20 & GOTO “FIN 

100 REM ROUTINE 

110 es 





Patrice Neveu 


120 RETURN 
500 REM FIN DU PROGRAMME 


Attention, après GOTO, GOSUB Ou 
RUN, il est indispensable 
d'inscrire les étiquettes à 
l'intérieur des guillemets (ou, au 
minimum, de les faire précéder 
d'un guillemet) car l'Applesoft le 
décomposerait (par exemple CAT 
en C AT, AT étant un mot-Clé). 
Toutefois, la routine offre de la 
souplesse à l'utilisation puisqu'il 
est possible d'appeler un : 

REM Routine d'ouverture 

par un: 

& GOSUB Routine 

ou même par un : 


& GOSUB Rout. 


Le retour d'un sous-programme 
se fait par le RETURN Courant, ce 
qui permet aussi l'application de 
POP. 


Bien entendu, ce qui est valable 
pour la commande GcosuB l'est 
également pour les GoTos et les 
RUNS. 


Ces trois commandes sont aussi 
utilisables depuis le clavier vers le 
programme directement. 


Dans cas où la syntaxe ne serait 

pas respectée peut s'afficher l'un 

des message suivant : 

UNDEF'D STATEMENT ERROR 
(l'ampersand est omis) 

IL FAUT UN GOTO, GOSUB ou 
RUN (après l'ampersand) 

IL FAUT UN GUILLEMET (avant 
le iabel appelé) 

LE LABEL N'EXISTE PAS 


(aucun REM ne commence par 
le label) 


Enfin, le programme source 
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T.GOGo se trouve sur la disquette 
Pom’s au format TEXT, 
assemblable directement par 
Merlin/Big Mac. 


Pour conclure ce mode d'emploi, 
deux remarques : 


* Afin d'éviter des catastrophes 
avec le Compacteur de Sylvie 
Gallet, (Pom's 22), il est 
nécessaire de supprimer les 
lignes 287 et 288. En effet, le 
Compacteur détruit tout ce qui 
suit le REM, ce qui nuirait 


naturellement au bon fonction- 
nement de GOGO ; 


+ GOGO est opérationnel aussi 
bien sous DOS 3.3 que sous 


ProDOS. . 





Programme GOGO.DEMO  “* - 


reste en 59400, là o0 eiie æ été chargée. 


BUFFER e 50280 

10 PRINT CHRS (4) "BRUN GOGO Se Re 
1000 REM  INITIALISATION Re 
1010 TEXT NORMAL HOME ERROR2 50375 
1020 JINVERSE : PRINT " DES SAUTS À GOGO, y = some 

PROGRAMME DE DEMO. NORMAL : POKE  Txrrrrz = 30390 

34,2 HAE 
1030 VTAB 10 INDEX = $03A1 
1040 PRINT " l) LISTING DU PROGRAMME tn ae 
1050 PRINT : PRINT " 2) CATALOGUE DU DISK us -  sores 
1060 PRINT : PRINT " 3} QUITTER MINUP =  sarst 
2000 REM CHOIX DU MENU DÉS nn. De 
2010 GET AS$:R = VAL (AS): IF R = O0 THEN wwsrm = 5007 

£ GOTO “CHOIX FN 
2020 & R GOSUB "LIST", "CAT", "QUIT" ADR) (er (eos 
2025 GET RS MUVIN - SEAF9 
2030 & RUN "INIT Tr à one 
3000 REM LISTING 
3010 HOME : LIST : RETURN SO at 
4000 REM CATALOG GOSUR = 520 
4010 HOME : PRINT PERS 
4020 IF PEEK (48896) = 76 THEN PRINT C rss 

HRS (4)"CAT": RETURN 

4030 PRINT CHRS (4) "CATALOG": RETURN 
5000 REM QUIT 
5010 END 


S1 ie SED est le Prc00S elle abaisse les buffers de deox 
pages et s'installe entre eux et lie Basic.Sÿstem, Puis 





Source T.GOGO 


Assembleur Big Mac 


En format TEXT sur la disquetis Pom's pour récupérafon par tout assembleur 


OAG 58000 


CXAAANANNNNNANNNNANNANXXKX XXX XAXHXMMIRUNNEUNENAXAUUNENNENNXEXKN 


Dans les deux Cas, la page 3 est occupée Par des routines 
des tables et des sessages pour des probiemes de 
relogeobilité. Elle est également protégée. 


. 
. 
“ 
. 
* protege cen pages. 
. 
. 
. 
. 


en A A on oo on mn 


s'adapte 4 l'environnement qu'elle trouve: 


; Stoækage Cemporeire 
+ Pointeur dans Is table des pages à protéger 


+ suffer pour copier l'instruction aprés 6. 
: Adresse de CHRGSTO relogée 

: Message d‘erræaur lors du relogeænt 
: Message d'erreur de coæmnde 

: Message de menque de Quilieræet 

: Nessege de label inconnu 

+ Taokeas de GOTO GOUSUE RUN 

: Longueur de ja commande # 

+ Sauvegarde de TXTPTR Pour lea @0S0B 
+ GOTD GOSUE ou RUN 

+ EmPlacement du label dans !s ligne 


4 Reknur ou Basic. 
4 Vecteur de 1'5. 


: Pour dépiacer Îles buffere. 
+ Bitasp en PFronas 


: Mise à zero de la Dile et des variables. 

4 £xecute une nouvelle instruction Basic. 

;: Partie de GUIU (5093E): pas de LINGET {SDA0C) 
: MeC TXTPTAR & la fin de l'instruction Basic. 

: RoUCine de sortie dæ chaine de caracteres. 

+ LINNUN (entier à 2 octets) <- FAC 

# FAC <= (Y,A) 


+ Token de GOTO 
+ Token de RUN 

/ Token de GOSUS 
: Token de REN 


* SI le Systémr d'Exploitation du Disque es Je DOS 3.3, elle * 


+ On se trouve sous ProDOS ? 




















DEBUT LOA S8F00 + C'est le vecteur JAP du MLI 
4 Commendes disponibles CMP £S4C 
. * 820 GBUuFF 
* 4GOTO “label" : Satite apréx la ZiQne REM qui e JMP AMPERSET 
se contiest ie label. . 
SGOSUB "label" i Va os sous-progremme coœmnçant * * On se place entre le Basic.System et les buffers de ProDOS. 
epres la iigne RÈH QUi contient #* 
LU je iabel. . GBUFF LOA £3 ;: descend lex buffers du DOS de 3 pages 
*  &RUN “label" : Bxecute le proÿremm i4 où se e JSR GETBUFR + Pour Qu'on puisse 3e Protéger 
L sitve le label. e BCC MOVER : Le réserve de place s'est faire sans pb 
. . 
* 4 VRGOTO ‘“1l",'"Ja2" : Saute au label d'ordre VR . * Erreur lors d'un des déplacement 
* & VR GOSUB "11", "12" : Va au sous-programme d'ordre VR * 
* & VR AUN "II"; "12" : Run indexé d'ordre VR sé ER£ELOC JSR TEXT 
ci JSR HOME 
XXXXKEEKAANRAKAEARENAXANARENKARANRAALKNENEARANLAUNEANNANKARAUXE LDA £<RELOCER 
LDY £L>RELCCER 
JSR STROUT 
LINNUN  « $50 : Auméco de la ligne où l’on va. WAIT JHP  NAIT 
TATTAS = $67 4 Adresre du début du texte Basic. 
LONEH - $69 : Adresse de la fin du texte 8331c- MOVER EQU + ; Prépore le déménagemænt de la routine 
ARYTAR = S68 + Fin des variabies s1%@les STA PROGAOR2 
HINEN - 573 : Plus haute ediwsse disponible, buffer ProDOS STA PROTECT+1 
CURLIN « 575 : Nuréro de la lighe æn cours d'execution. STA AMPINIT#I 
LASTVAR = s81 + Nom de la variable a rechercher (fndex) TAX 
VARPNT = $83 * Adresse de le valeur de Ia variable (index) ENX 
CRRGET $81 + Sous-routine de prise de caractère. STX PROTECT+2 
CHRGOT = Sa? + frend le ceractére actuel. INX 
YXTPTR # $39 +: Peinte sur le caractére 4 pendre. SIX PROTECT+3 
Pom's n° 31 
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MOVEO LDaA 


MOVE! INC 


NOVE3 eovu 


* On protège la page 503 


NXTPG LOY 


FROGADR +1 


SFFFF 
MOVE+1 
MOVEO 
MOVE +2 
HOVEY2 
E>FIN 
NOVE 
MOVES 
MOVE+1 
É<EIN 
MOVEI 
M@VE3 
PROGADR +] 
IQVE 
EROGEOR 427 
HVE 


£3 

PENUM 
PONGH 
PROTECT,Y 


BITHAP. X 
TEMP 


£7 


BITMESE, Y 
TE 
EREL@C 
TEMP 
BITMAF, X 
PGNUM 
NXTPG 


4 Chargenent de l'octet pour Ie 
+ remættre 4 l'endroit désigne Dar P cabQSs 
+ Passe av prochain eCtet 


+ Vérifie si on à terminé 


et celles du programme reiogé. 


? 11 y « 4 pages à protéger 

{ on sé sert d'un compteur 

+ Quel est le nunéro de ia page 4 protéger ? 
+ 1! est dans le tabie 

Sauvegarde teñporaire 

4 On divise par huit pour déterminer l'ectet 
+ Où se trouve ie bit de 1a page recherchée 


4 Dans X Peur alict dans la table du ProDOS 
+“ ( Pag# 16 du pom's 22 ) 
: On le sauve pour usage uitérieur 
Reprise du n° de page 
+ Dont on re Gerde que le Eit de pcsition 
+ Out sert 4 chercher le vasque 
Poar mettre à i le bit de 13 Daïe occupée 
Verifie ae c'est déje cccupe 


+ Puis nn met à four 1a RitMap 
4 EË on Passe à là prochaine page 


* Déplacement d'une sous-routine du programme pour rester 
* relogeable en environnement ProD)Os 


Le 
MŒERTN  LDS 


£id4é 
CHRGETO. Y 
CHRGETI, Y 


£SFF 
MOVERTN 


+ Nonbre d'octels 4 mettre en 50300 
Ce sent essenticllement des tables 
et des messeges, pius cerx rcutines 
i aPheiées Dsr JSR et donc non-"clogeabies. 


* Initialise je vecteur ampersand sous FroDOS 


AMPINIT LOA 
4DY 
STA 
STY 
RTS 


ÊSFF 

£0 
AMPERV+2 
ANMPERV+] 


L'onpersend ira au début du buffer donné 
2 par Pro00$ 


* Initialise le vecteur ampersand sous DOS 3.3 


ARPERSET LOA 
£OY 


+ Déplacement 


LDY £id4 Nombre d'octets $& mettre en $0300 
MOVERTNI LOA CARGETV,Y : Ce sont essentlellenent des Cables 
STA CNRGET!,Y ; ct des messages, plis deux reutines 
DEY +: appelheés par JSR rt donc non-relogeabies. 
CPY ESFF 
BNË  HOVERTNI 
Ars + Retour au Basic. 
PET SEE EEE ES . RTE 
. Vérification de la syntaxe des commandes. 
De nm mn pr epamimsnpr = 
coco Egu + 
LOX £i 
JSR CHRGCT : Necesssire pour prendre le ler caractére 
SY'A BUFFER + suivant l'é£. On stocke le résultat en 8UFFER. 
GETCMD JSR CHAGET + Scucle pour lire et stocker la sulte de la 
BEQ OIDENTIFY ; commende, A=0 31 fin d'instruction. 


£>GO0C0 
£ GO 
AMPER"/+2 
AMFERV+1 


£>rDESUT 
£<DÉBOT 
HIMEN+?! 
HINEM 


Maintenant, 1'46 ira directement 4 GOtoGOsub. 


Fixe HINEM sous DOS 3.3 pour éviter les 
+ vartables interpéstives 


d'une sous-routine du programme en DOS 3.3 


STA BUFFER,X 


SHE GETCMD 


IDENTIFY EOU * 


Dsx 
STX LENGTH 
ERX £2 


IOSNTIFYI LDA CMD, X 
CMP BLFFER 
BNE  IDSNTIFY2 


JXP LEGAL 
IDENTIFY2 EQU * 
DEX 


BPL  IBENTIFYI 


LDX £9 
ISINDEX &DA BSUFFER.X 
CA  £6O070 


BEQ YA:NDEX 
CHP  £GOSUS 
B£Q Y&INDEX 
CP  £RUN 
8EOQ YAINDEX 


CPX LENGTH 
BNE ISINDFX 


LOXY £DERROK 
LOA  £CERR@R 
JSR S'RQUT 
JMP  8ASIT 


* Lecture de l'index 


YAINDEX © * 
PFA 
TXA 
PHA 
LDX £û 
LUA BUFFER, Y 
STA LASTVAR 


CPX £I 
BNE SNDLST 
LBA £0 


STA LASTVAR?ri 
BE@ SRCHVAR 
SNDLET EQu * 


£0A SUFFER,Y 

STA LASTVAR+] 
SRCHVAR QU * 

LORA 2OMEM 

LDX LOMEH:1 

STZ  YARPNT 

STX VARPNTr? 


CNPVAR EQU + 
LOY £0 


LOA  (VARPNTJ,Y 


CMP  LASTVAR 


BNE NXTVAR 
INC VARPNT 


BNE SRCHVARI 
INC VARPNT+i 
SRCHVARI EOÙ * 


LOR  WARPNTI.Y 


CNP LASTVARr1 
BEC VARFND 


NXEVAR EU * 
LDA “VARPNT 
ADC £6 
STA VARFAT 
BCC VRFYE@V 
INC  VARPNT+] 
VRFTEOV SOU #* 
LDA VARPAT+I 
CMP  ARYTABri 
BCC CMPVAR 
BNE  NOVAR 
20A VARPNT 
CHP  ARYTAB 
5 CHPVAR 


LOA £0 
STA INDEX 
BEC VARFOUND 


VARFND PLA 
VARFOUND EQU * 


LBY VARPNTHI 
LDX VARPNF 


4 Pour identlfler La commande envwcÿyée- 

+ On décremente la Icngieur de 1s commande de 4 
/ puls on la range pour usage ultérieur. 

+ 11 Y 4 trois commandes possibles. On corvænce 
+ par ia derrière. 

+ Êt on compsre au token rangé dans le buffar: 


+ S1 c'eat autorisé, d'accord... 


+ Sinon, passe à le precheine ! 
4 &t il n'y en as que 3... 


On a Peut etre un saut indexé 
Alors gachant Que la variable est au début, 


on recherche le GOTO.GOSUS, RUN 
+ C'esc bien ve saut iraexé 


+ Recherche d'un saut quelconque sur toute 


1a longueur de 1a iigne 


4 Si C'est l'inconnu, alors signale l'erreur 


4 de comrande. 


+ Et retourne au basic. 


+ Lecture de 14 lère lettre de la variable 


[1 ÿ a une ou plusieur lettre dans le nom ? 
: Va prendre 19 2nd 


3 Oh se piace au début de la zone des 
4 vartabies simies afin de cectertcher 
+ notre index 


+ Et on ceïTpore ia variable etudiée avec celle 
: qu'on a trouvé aprés l'amporsand 


/ On rajoute 6 où ? ceion ce que la lere lettre 
éteir convenable où non 
: Va vérilier gl on a vu ceutes les variables 


+ A-tron terminé la zone des variables simples 


; La variable n'existe pas, donc 0 


: Four indiquer À FAC eï se trove Ia véieur 
de L'indox 
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ÊNE PUTINFAC 


PUTINFAC EQU * 
JSR MOVFM 
JSR GETADR 
NOVAR EQU * 
LOA FEINNUM 
STA SNDEX 


LEGAL Eou 


LEGAL! æou ° 


LOA  AUFFER.X 
CH 1522 
880 IESTINDX 


NOGUILE &QU * 
LOY £>ERRORO 
LOA  £<ERRORO 
JSR STROUT 
JNP BASIC 


TESTINDX EQU * 


LOY INDEX 
CPr € 
6CC READY 


SEEKCOMA EQU ? 
LOA BUFFER.X 


CAP £°,' 
BFO COM 
INx 


CPX LENGTH 
BE SEEKCOMA 


RTS 

COMA NX 
LOA BUFFER, X 
CMP  £S22 
8NE NOGUILL 
DET 
CPY £i 


BNE SEENCOMA 
READY EQU * 


STX PIACE 


< Æt la variable en FAC 
* Puis cunvertit FAC en entier dans LINNUM 


On a un index 


+ C'est bon, 
* Il n'y à pas d'index 


: Alors range le tyPe de Comrande qu'on à eu. 

+ Puis verifie J'existence du Quillermæt avant 

+ le label. 

: $22 est le code de ” 

: S'il y est, on peut aller chercier le label 
apres le REM. 


#* Sinon, c'est raté, on doit tout arreter. 


feut iridexer et s! oui alors allons-y 


On n'indexe que ai on doit lire après le ler 


: Sinon, on est déja pret... 


+ On recherche les virguies Cor e]]les r2rçuent 
: la fin d'un label à rechercher: c'es® ua 

{ séparateur dans la liste de label 

‘ Mais 11 faut quend meme rester dans les 

+ limites de la ligne à étudier 


+ S1 l'index > nonbre de iatela, alers on sort 
: ABres ae virule, on dolt treuver ur 
Sioon c'est une erreur 


+ Passe au Prochain de la l11ste, 
+ e! si on ést au bon, alors :1 fart y aiier 


2 On est pret a rechercher ie iabel 
: Sauve le début du label 


* Recherche d'une instruction REM dans le texte. 


LOA TXTPTR 
LOX TXTETR#I 
STA TXTPTR? 
STX  TXTPTR2+1 


LOY TXTTAB 


LDX TXTTAB:! 
ETY TXTPTR 
STX TXTETRI 
SEEKREM 8QÙ + 
JSR CHRGETI 
JSR CHRGSTI 


JSR CHRGETI 
STA LINNUM 
JSR CHRGETI 
STA LINNUM»i 


SEEKREMÉ JSR CHRGETI 
CMP  £REM 
88Q READREM 
READLINE JSR CHRGETI 
BNE READLINE 
CMP £00 
BEQ SEERREM 
GNE SEEAREN? 


FINIAB  ÆOU * 
LDY AUFFER,X 
GPTL 
BEQ EX&CLIN 
CPYr £522 
BEQ EXECLIN 
BNE  READLINE 


READREN EQU * 
LDX PLACE 


+ Regarde #ien où en en est dans le texte- 
: puis sauve pour plus terd peut-etre. 


: Fixe le pointeur au début du ptogranme. 
+ ( mains 1 } 


: va Ilire les 2 octets qui dornent l'adresse 
+ de !1a prochaine }igne. 


+ Passe aussi les Z? occecs du n'm&ro de 1igne 
+ et en passant, on stocke. 


+ Puis on Jit le début de l'Instructisn. 

* Est-ce Un REM ? 

: Ovi ! alors on va aller le Ifre. 

+ den alors on passe 8 Je prochaine instruction 


: Fin de ligne ? 


Ovi, va sauter ce qu'il ÿ a avant ie texte. 
{ Non alers ‘este un REH. 


Le début du label 


— 


COMPREM JSR CHRGETI 2 Il faut je comarer svec ce qui suit le REM 
BEC FINIAB + Fin du REW ? 
LOY BUSFER.X 
CET Es +: Dans ure liste, une virgule où des 
BEQ EXECLIN : guillemæts signifient une fin de label 4 
CPY #£522 : rechercher. 


BEQ EXECE£IN 
CHP BUFFER, X 


BNE R&SADLINE ! Mais c'est différent. donc... 
INY + Si C'est identique, essaye pius loin 
CEeX LENGTH : Mais ce n'est Pas is Peine d'en faire trop. 


BEC COMPREM 


+ Execute cette ligne 14 


EXACLIN EQU * 
LOA COMMSNDE + Selon ce que c'est, on n'agit pas pareil: 


CMP  £G010 
8£0 Ex TO 
CKP  £ERUN 


BEQ EXBCRUN 





LDA £1 : c'est un GOSU8 qu'il faut executer, | 
JSR S5b3D6 : Ceci est le débue de la routine GOSUB, wsils 
LOA TXTPTR£IrI1 à la différence ese qu'on ne va pas lire le n° 
PHA : de ligne qui suit PuisQu'on l'a 1enplacé per 
LOA rxXTPUR2 + un label. 
PHA 
LOA CURLIN'I : Dans ‘a bile, remarquer qu'on place: 
PHA + TATPTR d'où on part, 
LDA CURLIN + CURLIN Qui s'exocute encore, 
PA + COMMANDE Pour signslez Que ce qui se trouve 
LOA COMMANDE : dens le Plle vient d'un GOSUS par exenple. 
PHA 
JSR CARGOT 
JSR GOTCBIS : Co ÿ est au lieu d'ælier en GOTO où oo aurait 
JP NENSIT +: iu un n° de ligne, on ee Je fait p3s. 

Le + on se branche epres# (GOTU8iS) 

ÉXECRUN EQU * 
JSR CHhëgOT + Est-on déja en ?in de ligne ? 
B£EO EXECRUNI : Si out. alors fait Ie RUN. 

EXECRAUNZ JSR CHRGETI + Sinon, 11 faut se piacer er fin de iiçne 


BNE EXECAUN2 

EXECRUNI EQu + 
JSR CLEARC + dise 4 tero de Ja plie et des variables 
JNE  NENSTT + Execution de La roëthaine instruction... 


EXECGOTO EQU * 


JMP DATA : C'eut un GOTO, et comme on a déja fIXé TXTPTR 
? au buC du s4ut, on execute... 





* CHRGET qui controle la fin du texte. 


CHRGSTO EQU ?* : Avant de !ire ur caractere du preg., on doit 
LDA FxrPTRe! : s'assurer Qu'on es! Coufours deda 
CMP  LOMH-1 
8Œ GOCEF 
LOA TXYPTP 
CMP  LCMENM 
6SCS PRNTEND 

GOGET UMP CHRAGET ÿ +. et si c'est bon, on y va. 





PRNTEND LDY L>ERROP2 + Si on sert, c'est Que le labei recherché 
L@A  £TERRORZ + n'a Pas ëté trouvé. Alors on s'arrète. 
JSR STROUT 
JMP BASIC 


* Messages divers 







HEX  8D08D08D380%08D8D 8D8#D8D 8D8D 
AËC GOUD ME PEUT S'INSTALLER" 
KEX  8D00 


REX 80 

ASC ‘IL FAUT GOTO, GOSU8 OÙ RUN” 
HEX 800700 

REX 80 

ASC ‘12 FAUT UK GUILLEMET" 

HEX 800700 

HEX 60 


ASC ‘LE LASEZ N'EXISTE PAS" 
HEX 8D0790 


* Commandes valables 

DFB GOTO,GOSUB, RUN 
* Masque pour le marquage de la BitMap 
HITMASK HEX #040201008640201! 
+ Pages À protéger 
PROTECT HEX G3FFFFFF 


FIN EOU 
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Récapitulation ee 
80C8: 

GOGO … 
80D8 

80E0: 

Agrès avoir saisi 80E8 
ce code sous 80F0: 
moniteur, vous 80F8 
le sauvegarderez 8100: 
Par : 8108: 
BSAVE G@GO, A$8000,E$2F7 8110: 
8116: 

8000:A0 00 BF C9 4C FO 03 4C 6120 
8008:A1 80 A9 03 20 F5 BE 90 8128: 
8010:10 20 39 FB 20 58 FC A9 8130 
6018:19 AO 03 20 3A DB 4C 1E 8138: 
8020:80 8D 3D 80 6D F4 82 8D 6140 
8028:97 80 AA E8 8E F5 82 E8 8148: 
6030:8E F6 82 A9 00 8D 3C 80 8150: 
8038:AD C1 80 8 FFFFEE 39 81586: 
8040:80 DO 03 EE 3A 80 AD 3A 8160: 
8048:80 C9 82 90 OB DO 13 AD 8168: 
68050:39 80 C9 F7 90 O2 DO OA 8170 
8058:EE 3C 80 DO DB EE 30 80 68176: 
8060:D0 D6 A9 03 85 CF' A4 CF 8180 
8068:B9 F3 82 48 4A 4A 4A AA 8188: 
8070:BD 58 BF 85 D7 68 29 07 8190: 
8078:A8 B9 EB 82 24 D7 DO 91 8196 
8080:05 D7 9D 58 BEF C6 CF 10 81A0 
6088:DD AO 90 B9 5A 82 99 O0 61A8: 
8090:03 88 CO FF DO F5 A9 FF 81B0: 
8098:A0 00 8D F7 03 8C F6 03 81B8 
80A0:60 A9 80 AO C1 8D F7 03 81C0: 
80A8:8C F6 03 A9 80 AO 00 85 81C8: 
80B0:74 84 73 AO 90 B9 SA 82 61D0: 


80B8: 


99 
60 
02 
:02 
:A2 
DO 
:A2 
18 
:10 
03 
03 


:02 


00 
:02 
83 
:81 
02 
1FO 
83 
6C 
6B 
F0 
68A 
:92 
AA 
:03 
c9 
20 
: 03 
sC9 
DO 
22 
:E8 
8D 
88 
00 


03 
O1 

B1 

DO 
BD 
gc 
BD 
BO 
EC 
JE 
6A 
81 

82 
82 
84 

DO 
84 
28 
02 
D8 
DO 
68 
01 

AS 
DO 
JE 
FO 
DB 
02 
FO 
60 
D9 
AO 
03 
68 
20 


Voici la liste des fichiers que vous trouverez sur les disquettes Pom's Apple // 
correspondant à ce numéro. 


La disquette 5°25 pouces 140Ko est formatée au recto en DOS 3.3 et au 
verso en ProDOS. Tous les fichiers ne tenant pas sur une face, nous les avons 
répartis en fonction du DOS utilisé. La face ProDOS ne boote pas {pour une 
question de copyright) ; il vous appartient donc d'y installer ProDOS et 


Basic.System 


La disquette 800Ko comprend tus les fichiers en format ProDOS. Il faudra 
converti en DOS 3.3 les fichiers qui le nécessitent. 


Uste des fichiers, face ProDOS 


GOGO 
T.GOGO 
GOGO.DEMO 
PIC.POC 
GSCOLOR 
PICPOCS 
LIT MESSGS 


T.WRITE560 
T.WRITE560 DEMO 
WRITES560.0EMO 


ESSAIPAS 
DIAGPAS 


LEMOUSE3.0.C 
LEMOUSE3 0 
START MOUSE 


STARTUP 
1431 
PAPILLON 
NOEL 
ELLIPSES 
GLOBE 


BIN 
TXT 
BAS 


BIN 
BAS 
TXT 
BAS 
TXT 
TXT 
BIN 
BIN 
BIN 
BIN 
TXT 
BAS 
BAS 
BIN 
BIN 
BIN 
BIN 
BIN 


Objet à exéculer 
Source Assembleur 
Programme de démonstration 


Objet à exéculer 

Programme de démonstration 
Source Assembleur 
Programme de démonstration 


Source Assembleur 
Source Assembleur de démo 
Objet correspondant 


Source Turbo-Pascal 
Sourca Turbo-Pascal 


Objel à exécuter 

Source Assembleur 
Programme de lancement 
Programme d'accueil 

5 images générées 

avec le 

programme 

Schémateur 

de la face DOS 33 





88 
20 
00 
F5 
8E 
7C 
80 
FO 
9C 
20 
48 
EO 
FO 
A5 
AO 
OF 
08 
A5 
E6 
DO 
A9 
Ag 
c8 
50 
05 
03 
OA 
4c 
90 
07 
E8 
88 
03 
8E 
84 
00 


CO FF DO 
B7 00 8D 
FO 06 9D 
CA 8E SC 
03 CD 680 
81 CA 10 
02 C9 AB 
14 C9 AC 
03 DO EB 
3A DB 4C 
AO 00 B9 
01 DO 06 
06 C8 B9 
69 A6 6À 
00 B1 83 
E6 83 18 
B1 :83:.C5 
83 69 06 
684 A5 64 
1D AS 83 
00 8D A1 
84 A6 83 
20 F9 EA 
8D A1 03 
A2 00 8E 
E8 BD 80 
A0 03 A9 
DO 03 AC 
1B BD 80 
E8 EC 9C 
BD 80 02 
CO 01 00 
AS B8 A6 
9E 03 A4 
B8 86 B9 
03 20 00 


F5 
80 
80 
03 
02 
F2 
FO 
FO 
AO 
DO 
80 
A9 
80 
85 
(os 
DO 
82 
85 
C5 
C5 
03 
E8 
20 
68 
A1 
02 
SD 
AÏ 
02 
03 
C9 
E5 
B9 
67 
20 
03 


81D8:85 
81E0:00 
81E8:03 
81FO0:EE 
81F8:C0 
8200:03 
8208:02 
8210:0B 
68218:9C 
8220:AB 
8226:03 
6230:AD 
8238: 75 
8240:00 
8248:B7 
8250:FB 
8258:95 
6260:A5 
8268:00 
8270: 4C 
8278:8D 
6280:CF 
8288:C5 
8290:D3 
6298 :00 
82A0:D4 
82A8:C7 
82B0:A0 
82B8:C9 
682C0:D5 
82C8:C5 
82D0:CC 
82D8:A0 
82E0:C5 
82E68:AB 
62F0:04 


50 
03 
DO 
BC 
#2 
20 
CO 
DD 
03 
FO 
20 
9D 
48 
20 
00 
20 
D3 
B8 
AO 
DO 
8D 
C7 
D5 
D4 
8D 
AO 
CF 
D2 
CE 
CE 
CD 
C5 
CE 
AO 
BO 
02 


20 
C2 
FB 
80 
FO 
00 
2C 
80 
90 
34 
D6 
03 
AD 
55 
FO 
6C 
AS 
C5 
03 
03 
8D 
CF 
D4 
C1 
(A 
C7 
D3 
D5 
AO 
AO 
Lee) 
AO 
A7 
00 
AC 
01 


00 
B2 
C9 
02 
20 

03 

FO 

02 

ES 

C9 
D3 
48 
DE 
D3 
05 
0€ 

B9 
69 
A9 
8D 
8D 
AO 
AO 
ce 
[és 
(#3 
D5 
CE 
C6 
C7 
D4 

CC 
C5 

CE 

80 
03 


03 
FO 
00 
CO 
DO 
F0 
0F 
DO 
AD 
AC 
AD 
A5 
03 
4c 
20 
4c 
C5 
BO 
75 
8D 
8D 
CE 
D3 
CC 
AO 
D4 
(as 
8D 
C1 
D5 
8D 
C1 
D8 
TE | 
40 
FE 


85 
18 
FO 
2C 
E8 
EB 
co 
DO 
DE 
FO 
SE 
76 
48 
D2 
00 
D2 
6A 
03 
20 
8D 
8D 
C2 
A7 
C5 
cé 
CF 
A0 
07 
D5 
C3 
07 
C2 
C9 
8D 
20 
FF 


FF 


20 
00 
DO 
24 
AO 
80 
FO 
EC 
(a, 
A9 
48 
A5 
B7 
20 
DO 
4c 
06 
B1 
DB 
8D 
C7 
DO 
CE 
8D 
D5 
AO 
D5 
8D 
AO 
EC 
8D 
EC 
D4 
00 
08 


Disquettes Poms 31 Apple // 


Liste des fichiers face DOS 3.3 
A002 HALO 
A008 MENU 


A 041 SCHEMATEUR 
A 003 GRAPHISME 


8 002 HEL.C 


801t SCHEMC 

8 008 CARAC.SH 
A036 FONCTION 
B 002 FONC.C 
A018 GRAVURE 

B 004 GRAV.C 

B 002 ERREUR 

B 004 CHARGE O8 


TO03 THEL 


T 062 T.SCHEM 


T006 TFONC 
T013 T.GRAV 


B 004 GOGO 


TO61 T.GOGO 
A 003 GOGODEMO 


A 037 LE VOYAGEUR 


T 002 TEXT 


B013 ESSAILPAS 
B019 DIAGPAS 


B 034 1M31 


Programme d'accueil 


Programme de lancement de 


SCHEMATEUR 


4 sources nonlistés dans 


la revue 


Objet à exécuter 

Source Assembieur 
Programme de démonsiralion 
Programme à exéculer 
Fichier de démonstration 
Source Turbo-Pascal 
Source Turbo-Pascal 


ImageHGR 
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Une nouvelle carte : 


Alexandre Duback 


La carte dont nous vous proposons 
ici un banc d'essai est distribuée par 
la S.A. LOGMA, société qui 
travaille par ailleurs en régie pour la 
revue Pom's. 


La carte 


La carte Speedisk est un disque 
virtuel permanent : elle est un 
véritable volume ProDOS, sur 
lequel on peut démarrer et sur lequel 
on stocke fichiers et programmes. 
La mémoire de masse n'est plus un 
support magnétique traditionnel : la 
carte est constituée de circuits 
CMOS sans organes mécaniques en 
mouvement : les accès disque sont 
donc extrêmement rapides et la 
fiabilité est comparable à celle de 
l'unité centrale. 


On accède à l'information en 0,2 ms 
soit 100 fois plus vite qu'avec un 
disque dur. Sur un Apple 1IGS en 
mode rapide les chargements 
s'elfectuent à raison de 100 blocs 
par seconde soit 51200 octets/ 
seconce. 


Les informations sont préservées 
pendant deux mois après l'arrêt de 
l'ordinateur, grâce à un accumu- 
lateur qui se recharge lorsque 
l'ordinateur est sous tension : il ne 
faut donc pas laisser l'appareil plus 
de deux mois hors tension sans 
sauvegarder le contenu de Speedisk 
sur disquette. 


La capacité 


Speedisk est proposée en quatre 
versions : 384 Ko et 1 Mo, avec ou 
sans horloge. La première version 
estextensible à t Mo. 


Les cartes avec horloge compatible 
ProDOS n'ont d'intérêt que sur ]+ 
et //e, la carte intégrée au 1IGS 
remplissant fort bien son office. 
Notons d'ailleurs que les cartes 
Speedisk dotées d'une horloge sont 
incompatibles avec le 1IGS. 


ProDOS se refuse à reconnaître un 
support de masse et une carte 
horloge dans le même slot, aussi, 
pour utiliser l'extension horloge, il 
faut installer un programme livré 
sur disquette) qui s'exécute lors du 
démarrage pour modifier ProDOS. 


L'ordinateur 


La carte fonctionne indifféremment 
sur Apple }f+ (avec carte langage 
pour ProDOS), //e et 11GS. Les 
programmes sont métamorphosés 
surtout ceux ayant recours 
fréquemment à des fichiers : les 
programmes WPL d'AppleWriter par 
exemple, sont méconnaissables. 

La carte étant un support disque 
comme un autre, est toujours 
adressée à 1 Mhz même en mode 
rapide (sur le 11GS bien sûr). 


La vitesse 


Mieux qu'un long discours, voici les 
temps d'exécution mesurés. 


+ Booter sur Basic.System =3s 
+ BRUNFILER =1/2s 
* BRUN AppieWriter =1/2s 
+ Sauver un texte de 46 Ko 

depuis AppleWriter =5s 


+ AppleWorks sis 
*_ Écrire un enregistrement 


TEXT de 100 octets = 1/365S 
soit 3,5 Ko/s 
soit 2150 enregistrements/mn 

*  BSAVE de368 Ko =1s 


SpeediskK 


+ Formater 1 Mo sis 
+ Avec MouseDesk, copier 75 
lichiers (900 Ko) de 


Speedisk vers /RAMS 1 mn 
*_ De Launcher àGSPaint 175$ 
Temps cumulés : 

sur Unidisk 3,5" sur Speedisk 
PR£slot os 0s 
ProDOS 16 gs 25 
tauncher 49 s 105 
MouseDesk 715 155 
GSWiite 149 s 345 
A |! 

A l'usage 


On se prend rapidement à oublier le 
lecteur traditionnel et à imaginer un 
‘disque dur’ de 20 Mo conçu de la 
même façon. Mais, en réalité, le 
nombre de programmes utilisés de 
façon journalière est restreint et 
tient sans nul doute sur 1 Mo. Par 
exemple : un programme de gestion 
du compte bancaire, un traitement 
de texte, un tableur, un programme 
de dessin, quelques programmes en 
Basic et les utilitaires essentiels de 
Pom's. Pour les collections de 
programmes rarement utilisés, la 
disquette reste le stockage 
économique. 


Sur 384K0, on se sent plus à l'étroit 
et seuls les programmes utilisés 
quotidiennement trouvent leur place. 


Le spécialiste du traitement de 
texte n'hésite plus à faire les 
sauvegardes, quasi-instantanées, 
sans craindre que le disque virtuel 
/RAM ou /RAMB perde la mémoire 
à la suite d'une micro-coupure. 


Pour une utilisation plus spéciale 
{centres de tormation, école) et 
tous les milieux à risques, le disque 
virtuel permanent est certainement 
la solution la moins sensible aux 
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indélicats. 


L'aspect ‘environnement de bureau’ 
type Macintosh devient réellement 
utilisable car revenir à MouseDesk 
prend quelques secondes seulement 
alors que, sur disquette, l'utilisateur 
recourt parfois au RESET.. 
L'Apple IIGS passe plus de temps à 
son autotest de mise sous tension 
qu'à booter Basic.System. 


Un petit regret tout de même : il 
n'existe pas encore de contrôleur 
-ou plutôt de patch- pour l'utiliser 
sous DOS 3.3, mais, patience. Idem 
pour Pascal et CP/M. 


Au SAMU 


Cette carte a en effet été adoptée 
par un SAMU, activité dans laquelle 
fiabilité et accès rapide à 
l'information sont des critères 
vitaux. 


Dans la carte 


Strictement équivalente à un 
lecteur de disquette, on trouve dans 


la page $Cn (n est le n° de slot) les 
conventions habituelles : $Cn01, 03 
et 05 valent bien $20, 0 et 3. 


Pour la carte 1 Mo, en $CnFC et 
$CnFD il y a bien 00 08 qui signifient 
$800 blocs sur le disque : 2048 x 512 
= 1024 Ko. 


Surprise : en $CnFE on trouve $6F, 
le bit 7 est à 1 ce qui signifie 
‘support amovible’. Surprenant pour 
une telle carte !.. Il s'agit en fait 
d'un défaut de ProDOS qui ne 
supporte pas ce bit à O0. Aucune 
conséquence pratique, pas plus que 
pour les disques durs dont les 
contrôleurs ont également ce bit à 1. 


Plus standard, on dispose de 51 
entrées dans le catalogue du 
volume. Au-delà il faut créer des 
sous-catalogues comme pour les 
autres volumes. 


Pour utiliser l'horloge des cartes SP 
400H et SP1000H, il est nécessaire 
d'installer le programme xcse. 
SYSTEM Comme premier fichier 
système de la carte. Ce programme 
installe le vecteur ProDOS en 
$BF06.$BF08 : 4c p8 cnc'est-à- 


e 


dire JSR S$Cnpg puis effectue un 
premier GET_ TIME pour mettre à 
jour la date dans la page globale en 
$BF90.$BF93. Ce programme lance 
alors le fichier système suivant 
dans le catalogue. 


L'ensemble des GET TIME 
aboutiront alors à une mise à l'heure 
de la page globale : c'est le cas par 
exemple d'Un SAVE OU d'Un CLOSE 
en Basic (les fichiers sont ainsi 
datés). 


Le tarif 

SP400 (384 Ko) 3 990,00 F 
SP1000 (1 Mo) 5 990,00 F 
SP400 horloge 4 580,00 F 
SP1000 horloge 6 580,00F 


tarifs sur lesquels LOGMA applique 

une remise de 10% aux lecteurs de 

Pom's. 

Les cartes sont garanties 1 an, et 

ce par échange en cas de problème. 
nt 
us 





Une carte 


vocale 


(DT LY 
Valentine 


La carte de synthèse de parole 
Valentine n'est pas à proprement 
parler une nouveauté : nous en 
avions eu deux dans les mains il 
y a un an mais elles n'en étaient 
encore qu'à la phase de 
développement, le mode d'emploi 
ressemblait encore trop à un 
cahier des charges. Pour la petite 
histoire, on lisait à l'époque, ça et 
là des ‘bancs d'essai’ fort 
élogieux qui ne manquaient pas 
d'abuser le lecteur. Par ses 
possibilités, la nouvelle version 
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de Valentine mérite cette 
présentation, 


La carte 


Elle a été conçue en collaboration 
avec l'Association Valentin Haüy 
pour les Aveugles et c'est bien 
entendu à ceux-ci que s'adresse 
en priorité la synthèse de parole. 

La carte s'enfiche dans l'un des 
slots de l'Apple //e, ordinateur 
qui doit être muni du kit 65C02 ; 


Ô 


Ô 


le haut parleur inteme de l'Apple 
est utilisé mais un jack est prévu 
pour un modèle extérieur. Outre 
la connexion au slot, un fil est à 
relier — à l'aide d'un support de 
circuit prévu à cet effet — au 
décodeur clavier. Le clavier est 
alors reconnu par la carte qui peut 
générer une interruption et donc 
travailler en immobilisant 
provisoirement Le programme en 
cours. La version 1IGS (moins 
coûteuse) qui n'est pas encore 
disponible, ne nécessitera pas 
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cette intervention puisque le 
clavier, comme sur le Macintosh, 
génère des interruptions à la 
disposition du programmeur. 


De la dimension d'une carte SSC, 
les modèles que nous avons eu en 
mains souffraient encore de la 
présence de quelques straps, 
composants ajoutés côté pistes et 
modifications de dernière heure. 


Autour sur processeur 8085 à 8 
Mhz, nous trouvons 196Ko de 
ROM sur la carte : 77 pour les 
phonèmes, 50 pour les règles de 
prononciation et le reste pour le 
programme. 


La synthèse 


Avec un peu d'habitude, 
l'intégralité de la prononciation 
est reconnue ; après avoir tenté 
une voix d'homme, c'est 
finalement une voix féminine qui 
a été retenue, vitesse de 
prononciation et timbre sont 
1églable. Les occlusives p t detb 
prononcées seules restent 
difficiles à différencier et 
demandent un effort d'attention, 
idem pour les fricatives fet vou 


‘ 


pour ‘.’et ‘-’ dits «point» et 
«moins». Un mode 
‘télégraphique’ (ou plutôt 


aéronautique) lève les ambiguïtés 
les mots étant épelés «Papa 
Tango Delta Bravo..». Les 
signes et accents sont dits en 
clair : «a commercial, e accent 
aigu, parenthèse ouverte...» 


La carte sait prononcer sans 
erreur les pièges-type tels «les 
présidents président, les 
poules du couvent couvent, 
estomac». En revanche les 
mots-clé du Basic ne faisant pas 
partie des exceptions sont 
prononcés à la française. Les 
nombres sont fort bien dits «cent 
soixante milliards quatre cent 
onze millions...» 


Les minuscules sont différenciées 
des majuscules et l'utilisateur 
choisit, selon le type de travail le 
mode qui convient : À a seront 
prononcés «A A MIN» ou «A 
MAJ A» ; le premier mode 
convient au Basic, riche en 
majuscules, le second au 
traitement de textes. 


Quatre modes de 
fonctionnement 


I-Echo-clavier 

Le mode le moins utilisé car la 
disposition des touches d'un 
clavier est le plus simple à 
acquérir pour un malvoyant. 
Dans ce mode, après avoir fait 
PR£slot depuis le Basic (les 
problèmes commencent quand on 
n'est pas en Basic...), la carte 
prononce les touches appuyées : 
«Pé èR 1 èN Té» par exemple. 
Les affichages à l'écran ne génère 
pas de synthèse. 

La synthèse se fait au rythme de 
un caractère/seconde ; un 
caractère survenant avant le délai 
d'une seconde interrompt la 
synthèse du précédent. 


2-Echo-écran 

Ce qui est affiché à l'écran est 
prononcé. Bien sûr, seuls les 
accès standard à l'écran sont 
interceptés : PRINT depuis le 
Basic, JSR $FDED en assembleur 
par exemple. Les affichages par 
gestion directe de la mémoire 
écran du style STA $400, x sont 
invisibles pour la carte. Ce mode 
n'est d'ailleurs pas le plus utile ni 
le plus confortable. 


3-EÉditcur vocal 

Le point fort de Valentine IT : une 
interruption par G-RETURN et la 
carte prend le pas sur le 
programme. Il est alors possible 
de demander la lecture de l'écran 
(quelle que soit la méthode 
retenue pour l'affichage) aussi 
bien en 40 qu'en 80 colonnes. 
L'éditeur est puissant, il 
comprend les commandes 
suivantes : 


+ déplacement du ‘curseur 
vocal” à l'aide des flèches, un 
bip étant généré à chaque 
tentative de dépassement des 
limites ; 

* positionnement en début et 
fin de ligne (les espaces en 
fin de ligne ne comptent pas) ; 

* positionnement en haut et en 
bas de l'écran ; 

* positionnement au début du 
mot suivant ; 


positionnement au début du 

mot précédent ; 

* positionnement absolu : VO2 
H17 pour aller au 17ème 
caractère de la 2ème ligne ; 

+ lecture d'un caractère ; 

+ lecture de l'écran à partir du 
curseur ; 

* lecture d'une ligne ; 

* lecture d'un mot; 

+ épellation d'un mot. 


La carte ne précise pas si un 
caractère est en mode flash mais 
indique le mode inverse : «b 
inv», «e inv» par exemple. 

Perdu au milieu de l'écran, il 
suffit de presser &G pour que la 
carte donne la position du curseur 
vocal sous la forme de deux 
chiffres (ligne, colonne). Nous 
avons constaté une erreur 
épisodique dans les numéros de 
ligne, l'écran étant parfois 
numéroté à partir de 2. 


On peut toujours stopper la 
synthèse, ouf ! certains écrans 
sont en effet bien remplis. 


Trois modes de 
prononciation 


Le mode littéraire est celui retenu 
par défaut : les ()S$°*-&£:/=2<? 
et ? ne sont pas signalés. 

Mode détaillé, tout est prononcé 
sauf ?!;,et. 

En mode épellation, rien n'est 
oublié. 


4-Parole compressée 


Dans ce mode, d'une utilisation 
plus spécialisée, la carte prononce 
des paroles préalablement 
compressées et stockées en 
fichiers. Le principe ressemble à 
celui du programme Le Bavard 
paru dans Pom'’s, qualité 
acoustique incomparable, celle de 
la carte étant alors parfaite. Ce 
mode ouvre la porte aux 
applications du type ordinateur à 
bord des voitures ou répondeur 
téléphonique. Le fabricant 
s'occupe de compresser les textes 
pour utilisation avec la carte. 


Mode d'emploi et 
commandes 


Le mode d'emploi (en traitement 
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de texte) n'est pas très précis sur 
les syntaxes : faut-il un espace ?, 
faut-il un point ? Il est disponible 
également en braille et sur 
cassette. Les commandes choisies 
pour l'éditeur vocal sont 
suffisamment mnémotechniques 
pour ne pas recourir à la 
documentation. Il est certain 
qu'un malvoyant ne connaissant 
pas l'Apple ne pourra se 
dispenser des cours de fonnation 
de l'Association Valentin Haüy 
pour utiliser AppleWorks avec la 
carte. 


Dans la pratique 
AppleWorks 


Comme pour tous les 
programmes, le problème est 
d'activer Valentine (NDER : !) 
par l'équivalent d'un PR£. Pour 
AppleWorks, pas de problèmes, 
on définit la carte comme étant 
l'imprimante et le premier G-# 
déclenche la copie d'écran 
salvatrice. L'éditeur vocal remplit 
alors fort bien son office ; avec 
un peu d'habitude on doit 
identifier rapidement un menu. 


Dans le tableur, il est difficile de 
ne pas se perdre au milieu de la 
feuille de calcul, un peu de 
virtuosité n'est pas superflue. 


Avoir retrouvé une faute à l'aide 
de Valentine est une chose, mais 
positionner le curseur du 
traitement de textes pour effectuer 
la modification. 11 faut repérer la 
chaîne de caractères qui suit la 
position à rechercher puis 
demander à la fonction de 
recherche la chaîne voulue. Le 
curseur est alors en principe à 
l'endroit qui convient. Pas 
simple. 

La position courante d'écriture est 
à jour avec bien des programmes 
($24, $25) : Valentine aurait pu 
émettre un bip particulier lors du 
passage du curseur vocal sur cette 


position, c'était une aide 
possible. 
ProCODE 


Pas de problème de fonction- 
nement, mais Comment activer la 


carte ? Il suffit de quitter par 
CTRL-Q, faire 2 CTRL-p» Si 
Valentine est en slot 2, puis D92G 
pour relancer ProCODE. RESET 
le relance également mais 
déconnecte la carte. 


Interpom's 


Pas de souci, faire simplement 
PR£2 avant -INTERPOMS. 


Assembleur BigMac 


Malgré une petite perturbation de 
l'affichage, BigMac est 
compatible avec Valentine. 


AppleWriter 


Nous n'avons pas trouvé de 
possibilité d'utilisation. Contrai- 
rement aux indications de la 
documentation, Valentine est 
gérée ‘à la manière’ de la carte 
Super Série Apple et non 
‘comme’. 


Dommage, siles registres DATA et 
STATUS était les mêmes ($c089, 
$co838), il serait possible au 
moins d'“imprimer” letexte sur la 
carte car AppleWriter reconnaît la 
595€. 


Programmes Pascal 


Nous n'avons aucune possibilité 
d'utiliser Valentine avec le 
langage Pascal. Mêmes causes, 
mêmes effets, on ne peut pas 
T)ransférer un fichier sur la 
carte. 


Sargon II 


Les échecs S argon ne seront pas 
à la portée des malvoyants : le 
plantage survient rapidement. 


Assembleur 


Sortir des caractères sur la carte 
en assembleur ne pose pas plus 
de problème qu'en Basic ; à noter 
que la routine indiquée dans le 
mode d'emploi était incompatible 
avec la carte dont nous avons 
disposée (caractères prononcés 
deux fois). 


CP/M 


Avant d'utiliser la carte, un patch 
du CP/M (indiqué dans la notice) 


est nécessaire ; ce patch devrait 
être livré sur une disquette pour 
éviter à l'utilisateur final de 
s'interroger sur l'assembleur 
Z80. Le fonctionnement ne sera 
pas total car CP/M intercepte le 
caractère CTRL-P avant la carte 
mais l'éditeur vocal reste 


opérationnel. 


Conclusion 


Certainement une excellente carte 
qui tranche totalement avec celle 
proposée il y a un an et qui met la 
micro-informatique Apple à la 
portée des aveugles. Il reste que 
l'Association Valentin Haüy sera 
peut-être la bonne source de 
conseils en fonction de 
l'application envisagée. 

Le prix de la carte -environ 
5 500,00 F TTC-, intervient 
dans la décision d'achat mais il 
n'est pas surestimé en regard des 
études investies. 


Une carte a été conçue par un 
utilisateur de Valentine pour la 
doter de macros. Cette carte, peu 
coûteuse, s'insère dans un autre 
slot et permet par exemple à une 
seule touche de commander la 
mise en éditeur vocal, le 
positionnement en bas de l'écran, 
puis en fin de ligne, puis un mot 
en arrière, puis la lecture du mot. 
Ainsi, en cas de doute sur la 
frappe, le dernier mot saisi sera 
facilement prononcé par 
Valentine. Elle donne également 
une fonction de recherche de 
chaînes. 


Lorsque les yeux font défaut, on 
peut penser à l'écran tactile qui 
remplace le moniteur : très rapide 
d'accès pour l'utilisateur, il 
donne une image fidèle de l'écran 
à l'aide de huit picots par 
caractère (soit 256 combinaisons 
possibles) disposés à la manière 
des points braille, le curseur étant 
symbolisé par les huit points ON. 
Il faut hélas y consacrer le prix de 
huit Valentines II... 


Sté Fcrma, 14 rue de l'abbé Carton, 


75014 Paris. 


Tél. : (1) 45 43 14 79 
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Ecriture proportionnelle 
en DHGR 


\f RITES60 permet 
d'écrire en mode 

graphique sur un 

Apple // (/Je, Je, 
IIGS) muni d'au moins 
128Ko ; il ferait double 
emploi si le mode graphique 
utilisé était l'habituelle 
résolution de 280x192 
points, mais le mode très 
haute résolution 560 x 192 a 
été adopte: MLécriture 
s'effectuera avec une chasse 
proportionnelle le m 
occupera plus de place qu'un 
L: 





N'aviez vous jamais rêvé de faire 
du wysiwig (What You See Is 
What You Get : ce que vous 
voyez est ce que vous obtenez) 
sur un autre ordinateur que le 
Mac ? 


Utilisation 


L'appel de ce programme est 
destiné prioritairement à des 
programmes en assembleur. Il 
vous sera toujours possible 
d'écrire une interface avec 
l'Applesoft, via quelques POKESs 
ou l'ampersand par exemple. 


Le protocole conceme 4 points : 


* Le programme doit être appelé 
par JSR Où CALL à l'adresse 
CHROUT. 


+ La partie haute de l'adresse de 
la chaîne à éditer doit être 
placée en CHROUTI+2, alors 

que la partie basse le sera en 

CHROUTI+1. Les caractères 

composant la chaîne doivent avoir 

le bit 7 à 1, et se terminer par un 
$8D. 


+ On peut préciser la position 
initiale de la chaîne sur l'écran 
en plaçant ses coordonnées 

dans l'accumulateur (position 

verticale de 0 à 191), et dans les 
registres d'index (position 

horizontale de 0 à 559). Enfin, il 

faut mettre la retenue à 1 avant 

d'appeler le programme, 


Par exemple, pour se positionner 
sur la 00ème ligne et la 320ème 
colonne, il suffit de faire : 


LDA £100 
LDX £64 
LDY £1 
SEC 


+ L'espace entre les lettres peut 
être modifié à loisir ; par défaut, 
deux points blancs sont intercalés 
entre chaque lettre. Pour modifier 
cette valeur, il faut la placer à 
l'adresse ESPACE+I. 


; 1*256+64-320 


Enfin, le programme wRITE560 
est utilisable indifféremment sous 
ProDOS ou DOS 3.3. Par 
ailleurs, son adaptation à Pascal 


ne devrait pas poser de 
problèmes. 
Fonctionnement 


Le codage des lettres consiste à 
les inverser puis les dessiner dans 
une matrice de 7x8 points et enfin 
de recoder le tout. 


Par exemple pour un h : 


7654321 

Dresser ° 01 

ss di: + 01 

CHERE - 01 largeur 4 
Siuvstte 07 

4e 8x e 09 

Toi de 0 0 

À 6 Set 200 

Te ape pi 00 
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F. Kozay 


pour un w: 
7654321 
ins eee 00 
tienne 00 
Grie s d11 
DR PNA D largeur 5 
REC 
DNA TS 
PrANPRRCECENCE Des à :] 
HS Eee 00 


Le programme wWRITE560.DEMO 
est un programme de 
démonstration qu'il suffit de 
lancer par : 


PRES. 
BRUN WRITES56 0.DEMO 


suivi d'une instruction TEXT 
après son exécution. 


Le source T.WRITE560 est stocké 
sous forme d'un fichier TEXT au 
format Merlin/BigMac sur la 
disquette d'accompagnement de 
ce numéro. Il est appelé par le 
pseudo-opcode PuT de cet 
assembleur, aussi appelé coPY 
sur d'autres assembleurs. Par 
ailleurs, le source T.WRITE560. 
DEMO illustre les modalités 


d'appel. 
G 


Source 
T. WRITE560 


Assembleur BigMac 


HBAS = $26 
PCL D SFA 
TXTPAGEL = $C054 
TXTPAGE2 = $Ccoss 
CHROUT 


BCC CHROUTI 





























STA ABS STA EMPAT DRANDI EOR £$FF 
STX  ORDL STA  (HEBAS),Y 
STY  ORDH CHROUT6 STA TXTPAGEI1 
CHROUTI LDA SFFFF TYA L.DX QUOTIENT 
BEQ CHROUTFIN ASL INX 
CMP £S8D ASL TXA 
BEQ RETURN ASL LSR 
CMP. £S$A0 CLC 12Y 
BCC AVANCE ADC PCL BCS DRAW4 
CMP  £S$SCO STA PCL STA TXTPAGE2 
BCC  PONCTUA BCC CHROUT2 DRAWS4 
CMP  £$EC INC PCL+#I LDA (HBAS),Y 
BCC GRANDE CHROUTZ EOR COMPLEMENT 
JUMP PETITE LDA £8 STA  (HBAS),Y 
STA LENGTH STA TXTPAGEI 
CHROUTFIN RTS JSR DRAW PLA 
RETURN LDA EMPAT TAX 
LDA ABS CEC INX 
CLC ESPACE  ADC £2 CPX £192 
ADC £10 ADC @RDL BEQ DRAW3 
STA ABS STA ORDL LDY ECCO 
LDA £0 BCC CHROUT3 INY 
STA  ORDL INC  ORDH CPY LENGTH 
STA  ORDH CHROUT3 LDA ORDH BNE DRAWI 
CMP E2 DRAW3 RTS 
| AVANCE BNE  CHROUT8 
INC CHROUT1+1 LDA  ORDL GETX 
BNE  AVANCEI1 CMP  £S2A LDA VERTAH,X 
INC CHROUTI+2 BCC CHROUTS8 STA HBAS+1 
AVANCEL JMP CHROUTI JMP RETURN LDA VERTL,X 
CHROUT8 JMP AVANCE STA  HBAS 
PONCTUA RTS 
SEC DRAW 
SBC £$AO STA TXTPAGEI 
PHA LDA ABS DIV7 CLD 
LDA  £<PONCT TAX LDA E0 
STA PCL LDA @RDL STA MO 
LDA £>PONCT STA DGTL STA MI 
STA PCL+1 LDA @RDH STA  QUOTIENT 
PLA STA DGTH 1DA  DGTH 
TAY JSR DIV7 BNE DIV 
LDA LGPONC, Y LDY £0 LDA DGTL 
STA EMPAT PRAWI JSR GETX CMP £7 
UMP  CHR@OUT6 STY ECCO BCS DIV 
TXA STA RESTE 
CRANDE PHA RTS 
SEC LDA £0 
SBC £S$CO STA COMPLEMENT DIV INC QUOTIENT 
si LDA (PCL),Y LDA MO 
LDA  £<MAJUS TO  RESPE CLC 
PTA PC BEC DRAWS ADC £7 
LDA £>MAJUS STA MO 
STA PCL+1 DECALE DEX BCC OVEREW 
| PIA ASL INC MI 
TAY PHA OVERFW  LDA MI 
LDA  LGMAJUS, Y ASL CMP  DGTH 
STA EMPAT ROL COMPLEMENT BNE DIV 
UMP  CHROUT6 PLA LDA DGTL 
PETITE CPX £0 CMP MO 
SEC BNE  DECALE BCC DIVIN 
SBC £$E0 DRAW5 SEC 
PHA STA DRANDI+1 SBC MO 
LDA  £<MINUS LDA QUOTIENT CMP £7 
STA PCL LSR BCS DIV 
| LDA £>MINUS TAY STA RESTE 
| STA PCL+1 BCS  DRAW2 Fos 
PLA STA  TXTPAGEZ2 DIVIN LDA MO 
TAY DRAW2 SEC 
LDA LGMINUS,Y LDA  (HBAS),Y SBC DGTL 
Li — 
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DIVID 


PONCT 


MAJUS 


DIVID«1 
£7 


ESFF 

£7 

DIV 
QUOTIENT 
RESTE 


0000000000000000 ;:ESP 
0101010101000100 ;! 

0505050000000000 ;" 

0C02020702021D00 
041E050E140F°0400 
0313080402191800 
0205050215091600 ;:& 
0606020100000000 ;* 
0402010101020400 
0102040404020100 ;} 
04150E040E1 50400 ;* 
0004041r' 04040000 
0000000606020100 ;, 
0000000700000000 ;- 
0000000000030300 ;. 
0010080402010000 
0E11191513110E00 
0203020202020700 
0E11100C02011F00 
1F10080C10110E00 
080C0A091F080800 
1F010F1010110E00 
1C02010F 11110E00 
1F10080402020200 
0E11110E11110E00 
0E11111E10080700 
0003030003030000 ;: 
0000020002020100 ;; 
0804020102040800 ;:< 
0000070007000000 ;= 
0102040804020100 :> 
1E3330180C000C00 ;? 


ST TS IS Ne Deer re Mia PE 
© ®  œ Un à ON bi ON 


La 


08100E101E111E00 ;à 
181412111F111100 ;A 
0F11110F11110F00 ;B 
0E11010101110E00 
0F11111111110F00 
1F01010F01011F00 
1F01010F01010100 
0E11010119111E00 
1111111F11111100 
0702020202020700 
1C08080808090600 
1109050305091100 
0101010101010F00 
4163554941414100 ; 
4143454951614100 :;:N 
0E11111111110E00 
0F11110F01010100 
0E11111115091600 
0F11110r 05091100 
0E11010E10111C00 ;:S 
1F04040404040400 :;:T 
1111111111110E00 ;:U 
11111111110A0400 ;V 
4141414955634100 ;W 
11110A040A111100 ;X 


Pom's n° 31 


MINUS 


* Tables 


VERTL 


VERTH 


1111110A04040400 ;Y 
1F10080402011F00 ;Z 
0205020000000000 ;° 
00000E01010E0402 ;ç 
0E01060906080700 :;:$ 
040A110000000000 ;* 
000000000000000€ ; 


0102040000000000 ;° 
000006080E090E00 
0101010709090700 
00000E0101010E00 
0808080E09090£00 
0000060907010E00 
040A020207020200 
00000E09090E0806 
0101010709090900 
0200030202020700 ; 
08000C0808080906 
0101090503050900 
0302020202020700 
00001B1515111100 
0000070309090900 
0000060909090600 
0000070909070101 
00000E09090E0808 
00000D0301010100 
00000E0106080700 
02020F0202020C00 
00000909090D0B00 
00001111110A0400 
0000111115151B00 
0000110A040A1100 
000009090E080807 
00001F'0804021F00 
080406090F010E00 
0204001111191600 :ù 
040806090F'010E00 :& 
0500000000000000 ; 7 
OFOFOFOFOFOFOFOF ; 


St 
PA 
iv 
:w 
:X 
y 
ÿ2 
sé 


le calcul de ‘BAS 
0000000000000000 
8080808080808080 
0000000000000000 
8080808080808080 
0000000000000000 
8080808080808080 
0000000000000000 
8080808080808080 
2828282828282828 
ABABABABABABABAB 
2828282828282828 
ABABABABABABA8A8 
2828282828282828 
ABABABABABABABA8 
2828282828282828 
AB8ABABABABABABAB 
5050505050505050 
DODODODODODODODO 
5050505050505050 
DODODODODODODODO 
5050505050505050 
DODODODODODODODO 
5050505050505050 
DODODODODODODODO 
2024282C3034383C 


* Largeur de 


LGPONC  DFB 
DFB 
LGMAJUS  DFB 
DFB 
LGMINUS DFB 
DFB 
MD ps 
MI DS 
QUOTIENT DS 
RESTE DFB 
DGTL DS 
DGTH DS 
COMPLEMENT DS 
EMPAT Ds 
ORDL Ds 
ORDH Ds 
ABS Ds 
LENGTH DS 
ECCO DFB 





HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 


2024282C3034383C 
2125292D3135393D 
2125292D3135393D 
22262A2E32363A3E 
22262A2E32363A3E 
2327282F33373B3F 
23272B2F33373B3F 
2024282C3034383C 
2024282C3034383C 
2125292D3135393D 
2125292D3135393D 
22262A2E32363A3E 
22262A2E32363A3E 
23272B2F33373B3F 
23272B2F33373B3F 


2024282C3034383C 
2024282C3034383C 
2125292D31353930 
2125292D3135393D 
22262A2E32363A3£E 
22262A2E32363A3E 
23272B2r33373B3F 
23272B2F33373B3F 


toutes les lettres 


5:1,3,5,5,5,5,3,3, 
3,5, 5,3, 3,2, 5,5 
3,5,5,95,5, 5% 5,5,5, 
2,2,4,3,4,6,5 

Se So 5 5,5, 5, 5 5, 
3,5,5,4,7,7,5 

5,5 5,5, 5,5,5, 25,5, 
5, 3, 7,3,5,5 
5,4,4,4,4,4, 4,4, 4,3, 
4,4,3,5,4,4 
4,4,4,4,4,4,4,5,5,5, 
4,5,5,5,5,5,5 


hs bé Obs bé bé be be ba © bas be be 
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Source T.WRITE560.DEMO 


Assembleur Merlin/BigMac 


SET80COL 
TXTCLR 
MIXCLR 
AIRES 
SETAN3Z 
CLRHRI1 
SETHR2 
SETHR3 


* lit le 


* Passe en mode graphique 560*192 


DEBUT 


EFF3 


EFF4 


LST 
ORG 


JMP 


fichier principal 


PUT 


STA 
STA 
STA 
STA 
STA 
STA 
STA 
STA 
STA 


et affiche un fond gris 


LDX 
LDY 
JSR 
TYA 
PHA 
LSR 
TAY 
BCS 
STA 
LDA 
STA 
STA 
PLA 
TAY 
INY 
TYA 
PHA 
LSR 
TAY 
BCS 
STA 
LDA 
STA 
STA 
PLAà 
TAY 


OFF 
$1000 


$Co0D 
$C050 
$co52 
$co57 
$SCOSE 
$COB2 
$COBS 
$C0B7 


DEBUT 


WRITES560 


SET80COL 
MIXCLR 
AIRES 
TXTCLR 
SETAN3Z 
CLRARI 
SETHR2 
SETHR3 
TXTPAGE1 


£0O 
£0 
GETX 


EFF3 
TXTPAGE2 
COULEUR 
(HBAS), Y 
TXTPAGEI 


EFF4 
TXTPAGE2 
COULEUR+1 
(HBAS), Y 
TXTPAGEI 





EFF6 


EFF7 


EFF8 


EFFIN 


* Envoie 


£80 
EFF2 


£192 
EFFIN 


£O 
GETX 


EFF7 
TXTPAGE2 
COULEUR 
(HBAS), Y 
TXTPAGE 1 


EFF8 
TXTPAGE2 
COULEUR 
(HBAS), Ÿ 
TXTPAGE1 


£80 
EFF6 


£192 
EFF1 


messages à l'écran 
£<MESSAGEO 
£>MESSAGEÙ 

CHROUT 1+1 
CHROUT1+2 

£2 

ESPACE +1 

£20 

£10 

£0O 


CHROUT 


£<MESSAGE1 
£>MESSAGE1l 
CHROUTI+1 
CHROUTI+2 
£S 
ESPACE+1 


CHROUT 


£<MESSAGE2 
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LDY Ê>MESSAGE2 STA CHROUTI+1 


STA CHROUTI+1 STY CHROUT1+2 
STY CHROUT1+2 LDA £2 

LDA £0 STA ESPACE+1 
STA ESPACE+1 CLC 

CLC JSR CHROUT 
JSR CHROUT RTS 

LDA  £<MESSAGE3 

LDY  £>MESSAGE3 COULEUR DFB O,0 








MESSAGEO ASC “Démonstration d'écriture avec espacement normal "8D00 


MESSAGEI ASC “Démo. avec 5 points pour chaque espace entre" 
ASC "“ les lettres'"8D00 
MESSAGE2 ASC “Démo. sans espaces entre les lettres"8D00 
MESSAGE3 ASC "Démo. de tous les caractères que l'on peut obtenir” 
ASC " à partir du clavier"8D 
ASC "DEMO : ABCDEFGHIJKLMNOPQORSTUVWXYZ abcdefghijkimnop" 
ASC "qgrstuvwxyz12345678908é" (Sèfçà)-"$ *d'3£,;:=?./4#+<>" 
HEX 00 
# , , 
Récapitulation 10E8:16 FO OC CA OA 48 OA 2E 1228:0E 00 02 03 02 02 02 02 
WRITE560 DEMO 10F0:8A 16 68 EO O0 DO F4 8D 1230:07 00 0E 11 10 OC O2 01 
° 10F8:07 11 AD 86 16 4A A8 BO 1238:1F 00 1F 10 08 OC 10 11 
1100:03 8D 55 CO B1 26 49 FF 1240:0E 00 08 OC OA 09 1F 08 
Après avoir saisi ce 1108:91 26 8D 54 CO AE 86 16 1248:08 00 1F 01 OF 10 10 11 
code Sous moniteur, 1110:E8 8A 4A A8 BO 03 8D 55 1250:0E 00 1C 02 01 OF 11 11 
vous le Sauvegarderez 1118:C0 Bl 26 4D 8A 16 91 26 1258:0E 00 1F 10 08 04 O2 02 
é 1120:8D 54 CO 68 AA E8 EO CO 1260:02 00 0E 11 11 0E 11 11 
BSAVE WAITES60DEMO, 1128:F0 09 AC 90 16 C8 CC &F 1268:0E 00 0E 11 11 1E 10 08 
A$1000,LS8AB 1130:16 DO A4 60 BD 62 15 85 1270:07 00 00 03 03 00 03 03 
1138:27 BD A2 14 85 26 60 DB 1278:00 00 00 00 02 00 02 02 
1000:4C 91 16 90 09 8D 8E 16 1140:A9 00 8D 84 16 8D 85 16 1280:01 00 08 04 O2 01 O2 04 
1008:8E 8C 16 8C 8D 16 AD FF 1148:8D 86 16 AD 89 16 DO 0B 1288:08 00 00 00 07 00 07 00 
1010:FF FO 13 C9 8D FO 10 C9 1150:AD 88 16 C9 O7 BO 04 8D 1290:00 00 01 O2 04 08 04 02 
1018:A0 90 1D C9 CO 90 24 C9 1158:87 16 60 EE 66 16 AD 84 1298:01 00 1E 33 30 18 OC 00 
1020:E0 90 37 4C 71 10 60 AD 1160:16 18 69 07 8D 84 16 90 12A0:0C 00 08 10 0E 10 IE 11 
1028:8E 16 18 69 OA 8D 8E 16 1168:03 EE 85 16 AD 85 16 CD 12A8:1E 00 18 14 12 11 1F 11 
1030:A9 00 8D 8C 16 8D 8D 16 1170:89 16 DO E7 AD 88 16 CD *12B0:11 OO OF 11 11 OF 11 11 
1038:EE 0F 10 DO 03 EE 10 10 1178:84 16 90 OC 38 ED 84 16 12B8:0F 00 0E 11 O1 O1 O1 11 
1040:4C 0E 10 38 E9 AO 48 A9 1180:C9 07 BO D7 8D 87 16 60 12C0:0E 00 OF 11 11 11 11 11 
1048:A2 85 FA A9 11 85 FB 68 1188:AD 84 16 38 ED 88 16 8D ‘12C8:0F 00 1F O1 01 OF O1 O1 
1050:A8 B9 22 16 8D 8B 16 4C 1190:96 11 A9 07 38 E9 FF C9 12D0:1F 00 1F O1 O1 OF O1 O1 
1058:85 10 38 E9 CO 48 A9 A2 1198:07 BO CO CE 86 16 8D 87 12D8:01 00 0E 11 O1 O1 19 11 
1060:85 FA A9 12 85 FB 68 AB 11A0:16 60 O0 00 00 00 00 00 12E0:1E 00 11 11 11 1F 11 11 
1068:B9 43 16 8D 8B 16 4C 85 11A8:00 00 01 01 01 01 0] 00 12E8:11 00 07 02 02 02 02 02 
1070:10 38 E9 EO 48 A9 A2 85 11B0:01 00 05 05 05 00 00 00 12F0:07 00 1C 08 08 08 08 09 
1078:FA A9 13 85 FB 68 A8 B9 11B8:00 00 OC 02 02 07 O2 02 12F8:06 00 11 09 05 03 05 09 
1080:63 16 8D 8B 16 98 OA OA 11C0:1D 00 04 1E 05 OE 14 OF 1300:11 00 01 O1 O1 O1 01 01 
1088:0A 18 65 FA 85 FA 90 O2 11C8:04 00 03 13 08 04 O2 19 1308:0F 00 41 63 55 49 41 41 
1090:E6 FB A9 08 8D 8F 16 20 11D0:18 00 02 05 05 02 15 09 1310:41 00 41 43 45 49 51 61 
1098:BF 10 AD 8B 16 18 69 O2 11D8:16 00 06 06 02 01 00 00 1318:41 00 OE 11 11 11 11 11 
10A0:6D 8C 16 8D 8C 16 90 03 11E0:00 00 04 O2 O1 01 O1 O2 1320:0E 00 OF 11 11 OF O1 O1 
10A8:EE 8D 16 AD 8D 16 C9 O2 11E8:04 00 O1 02 04 04 O4 02 1328:01 00 0E 11 11 11 15 09 
10B0:D0 OA AD 8C 16 C9 2A 90 11F0:01 00 04 15 OE O4 OE 15 1330:16 00 OF 11 11 OF O5 09 
10B8:03 4C 27 10 4C 38 10 8D 11F8:04 00 00 04 04 1F 04 04 1338:11 00 OE 11 O1 0E 10 11 
10C0:54 CO AD 8E 16 AA AD 6C 1200:00 00 00 00 00 06 06 02 1340:1C 00 1F 04 04 04 04 04 
10C8:16 8D 88 16 AD 8D 16 8D 1208:01 00 00 00 00 07 00 00 1348:04 00 11 11 11 11 11 11 
10D0:89 16 20 3F 11 AO O0 20 1210:00 00 00 00 00 00 00 03 1350:0E 00 11 11 11 11 11 OA 
10D8:34 11 8C 90 16 8A 48 A9 1218:03 00 00 10 08 04 O2 01 1358:04 00 41 41 41 49 55 63 
10E0:00 8D 8A 16 B1 FA AE 87 1220:00 00 0E 11 19 15 13 11 1360:41 00 11 11 OA O4 OA 11 
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1368:11 
1370:04 
LSTESTE 
1380:00 
1388:09 
1390:07 
1398:00 
13A0:00 
13A8:00 
13BO:0E 
13B8:07 
13CO:0E 
13C8:0E 
13D0: OF 
13D8 : 02 
13E0:08 
13E 8:09 
13F0:07 
13F8:09 
1400:09 
19408:07 
1910211 
1418:09 
1420:06 
1928:01 
1430:08 
1438 : 01 
1440:07 
1448:0C 
1450:0B 
1458:04 
1460:1B 
1468:11 
1470:08 
1978:1F 
1480:0E 
1488:16 
1490:0E 
1498:00 
14A0:0F 
14A8:00 
14B0:80 
194B8:00 
14C0:80 
14C8:00 
14D0:89 
14D8:00 
14E0: 80 
14E8:28 
14F0:A8 
14F8:28 
1500:A8 
1508:28 
1510:A8 
1518:28 
1520:A8 
1528:50 
1530:D0 
1538%:5.0 
1540:D0 
1548:50 
1550:D0 


20 


OF 


OE 


1558:50 
1560:D0 
1568:38 
1570:38 
1578:39 
1580:39 
1588:3A 
1590:3A 
1598:3B 
152A0:3B 
15A8:38 
15B0:38 
15B8:39 
15C0:39 
15C8:3A 
15D0:3A 
15D8:3B 
15E0:3B 
15E8:38 
15F0:38 
15F8:39 
1600:39 
1608:3A 
1610:3A 
1:618:3B 
1620:38 
1628:05 
1630:02 
1638:05 
1640:03 
1648:05 
1650:07 
1658:05 
1660:03 
1668:04 
1670:05 
1678:09 
1680:05 
1688:00 
1690:00 
1698:57 
16A0:8D 
16A8:C0 
16B0:20 
16B8:03 
16C0:26 
16C8:48 
16D0:AD 
16D8:68 
16E0:E0 
16E8:11 
16F0:55 
16F8:54 
1700:A8 
1708:17 
1710:C8 
1718:D0 
172040 
1728:10 
1730:20 
1738:0F 
1740:9F 


JE 


21 


1748:A0 17 8D OF 10 8C 10 10 
1750:A9 00 8D 9F 10 18 20 03 
1758:10 A9 00 AO 18 8D Of 10 
1760:8C 10 10 A9 02 8D 9F 10 
1768:18 20 03 10 60 00 00 Ca 
1770:FB ED*EF EE: F3:F9"F2 El 
1778:F4 E9 EF EE AO E4 A7 FB 
1780:E3 F2 E9 F4 F5 F2 E5 AO 
1788:E1 F6 E5 E3 AO ES5 F3 F0 
1790:E1 E3 ES ED ES EE F4 AO 
1798:EE EF F2 ED El EC 8D 00 
17A0:C4 FB ED EF AE AO EI F6 
17A8:ES E3 AO BS AO FO EF E9 
1/7BO:EE F4 F3 AO FO EF F5 F2 
1/7B8:A0 E3 E8 El Fi F5 E5 A0 
IV/COSES SES FO ETES. ES "AO: ES 
17C8:EE F4 F2 ES AO EC ES F3 
1/7D0:A0 EC ES F4 F4 F2 ES5 F3 
1/7D8:8D 00 C4 FB ED EF AE AO 
LVECSFS ET .EEXF I A0: ES. F3.F0 
17E8:E7"ES3"ES"E3 AO .ES EEE 
17F0:F52 ES AO EC ES F3 AO EC 
J7F8:E5 F4 F4 F2 ES F3 8D 00 
1800:C4 F& ED EF AE A0 E4 E5 
1808:A0 F4 EF F5 F3 AO EC ES5 
1810:F3 A0 E3 El F2 E1 E3 F4 
LOTO SEDYEN EST ES AOTETUPS' ES 
1820:A0 EC A7 EF EE A0 FO ES5 
1828:F5 F4 AO EF E2 F'4 ES EE 
1830:E9 F2 AO CO AO FO Ei F2 
1838:F4:E9.F2" A0 E4 F5 A0:.E3 
1840:EC El F6 E9 ES F2 8D Cq 
1848:C5 CD CF AO BA AO C1 C2 
1850:€3" C7 CSC 1C7CE C7 CA 
38:56:CB::CC:.CD::CE CF DO. DT.,.D2 
1860:D3 D4 D5 D6 D7 D8 D9 DA 
1868:A0 Et E2 E3 E4 ES E6 E7 
1870:E8 E9 FA EB EC ED EE EF 
VO78:F0.FI F7 FES IFIS ES EE GL.E"7 
1880:F8 F9 FA B1 B2 B3 B4 B5 
1888:B6 B7 B8 B9 BO A6 FB A} 
1890:A8 DD FD A1 DC CO A9 AD 
1838:DE A9 FE AA FC EO A5 A3 
18A0:AC BB BA BD BF A£ AF AB 
18A8:BC BE 00 






TPom's 


TPom's, programme du numéro 
précédent vous cause peut-étre des 
Soucis sur votre Appie //c. Trois 
octets méritent un changement pour 
vous tirer d'embarras. Faire : 
BLOAD T.POMS 

CALL -151 

204C: 4C 55 20 

BSAVE T.POMS,AŸ$2000,L4033 













Un couper/coller un peu violent nous a 
conduit à un humour involontaire : 
l'article précise que la carte Super 
Série Apple est nécessaire sur le //c.. 
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otre micro-serveur fonc- 
tionne et vous avez 
décidé de réaliser 
quelques belles pages de 
menus à l'exempie des 
serveurs professionnels. 
Muni des normes 
Vidéotex et de votre 
traitement de texte 
favori, vous vous êtes 
attelé à l'ouvrage. 
Aïe! Quelle besogne de 
bénédictin ! 

Le programme CP/M édité par 
Pom's simplitie grandement la 
réalisation de telles pages . 





Le programme ÉDITEUR 


Les éditeurs Vidéotex peuvent se 
subdiviser en deux catégories : 


* les éditeurs statiques 
* les éditeurs dynamiques. 


Pour les différencier, obsarvez les 
mouvements du curseur. S'il balaye 
laborieusement l'écran comme le spot d'une 
image TV, de gauche à droite et de haut en 
bas, alors il s'agit probablement d'un 
éditeur statique. Au contraire, s'il se 
promène allègrement dans toutes les 
directions, alors il s’agit d'un éditeur 
dynamique. Ce type d'éditeur permet un 
effet d'animation, un peu comme le peintre 
dessine sur sa toile. || est possible de 
simuler par exemple ie déplacement d'un 
petit objet sur l'écran. Notre éditeur est de 
type dynamique. 


ll est écrit en Furbo-Pascal {CP/M) et 
fonctionne sur Apple //e et sur Apple Ji+ 
avec une carte 80 colonnes et une carte 
Z80. 


On peut l'utiliser avec un ou deux lecteurs 
de disquettes, avec pour inconvénient si 
vous n'avez qu'un seul lecteur que les images 
seront sauvegardées sur la disquette 
programme. 


Un nouveau produit Pom's : 


Utilisation, possibilités 


Le déplacement du curseur est commandé 
par les touches fléchées {gauche, droite, 
bas, haut). Sur l'Apple ][+, les 
déplacements vers le haut et vers le bas 
s'obtiennent par CTRL-K et CTRL-J. À 
tout moment, la position du curseur, 
horizontale et verticale, estmise à jour sur 
le tableau de bord. 


Une fois le curseur en place, que peut-on y 
écrire ? Du texte ou du graphique, c'est 
Y'objet de l'une de commandes clavier 


Il faut alors fixer des attributs qui 
diffèrent selon le mode . 


Mode texte 


la couleur du caractère (Noir, Bleu, 
Rouge, Magenta, Vert, Cyan, Jaune, 
Blanc) : 


la couleur du fond , 

la fixité ou le dignotement ; 

linversion de fond, encore appelée 
positif/négatif ; 

le soulignement ; 


la talle du caractère : 

* _laille normale 

+ taille double 

* hauteur et largeur double. 


Mode graphique 

la couleur du caractère ; 
- Ja couleur du fond ; 

le dignotement ; 

la disjonction. 


Lors du déplacement du curseur, les 
attributs courants peuvent êre préservés 
ou détruits, c'est au choix. 


Presque tous les caractères d'un clavier 
AZERTY et d'un clavier Minitet sont 
accessibles. Ceci n'est possible qu'en 
attribuant à une même touche plusieurs 
significations selon : 


- sa position, ‘shiflée' ou non 'shiftée’ ; 
son rangement dans les caractères 
accentués ou dans les caractères 


spéciaux. 


On peut obtenir : 
&gésèça"1V4v2%u£tga#]\] 
°°"#2ÆQ 


À tout moment on peut simuler l'envoi de 
l'image sur le Minitel pour contrôle. 


Les corrections sont possibles de deux 

manières : 

* caractère par caractère, à l'aide de la 
Hèche gauche ou de la touche Del. 
Attention cependant à certains 
attributs qui ne sont pas modifiés 
(couleur de fond et soulignage) ; 


+ par effacement (Ctri-X) du dernier 
bloc entré avant le dernier 
positionnement du curseur. 


Enfin — charme de notre éditeur dynamique 
- on peut inclure dans le fichier des 
commandes ou des caractères 
non-standard : 


un effacement d'écran entre deux 
images SUCeESSiVES ; 


une sonnerie pour prévenir par exemple 
d'une erreur : 


un caractère ou une séquence de 
caractères ASCI| indisponibles au 
clavier. Les codes ASCII de 32 à 127 
sont autorisés. Ceci permet 
théoriquement de disposer de tous les 
effets Vidéotex à condition d'en 
connaître la norme. 


Un même fichier peut regrouper une 
succession d'images séparées par des 
effacements d'écran ou par des 
effacements partiels donnant un effet 
d'animation. 


Inversement, un fichier-image sur disquette 
peut être rappelé en mémoire el visualisé 
sur l'écran. 








Editeur Vidéotex : 
200,00 F TTC Franco, 
‘sources’ compris. 

Bon de commande page 75 











Pom's n° 31 


2 


CLM. & BBDO 


On trouve plus facilement 


Certaines évolutions sont aussi 
importantes que des révolutions. 








Le plus difficile quand on débute, 
c'est de débuter. Car toutes les 
propositions d'emploi demandent une 
certaine expérience. Chercher un 
emploi est donc un problème 
insoluble. Pas pour l'Apple IlGs, il 
débute avec 10 ans d'expérience. 

Comment? C'est très simple, 

il a une architecture double : un 
nouvel ordinateur puissant traitant 
le graphique et le son. entoure 

un Apple Il classique et miniaturisé. 
Il profite ainsi de 10 ans de 
développement de logiciels et 
d'expérience. ln grand progrès réalisé 
en partie grâce au microprocesseur 
65C3816, un 16 bits descendant du 
65C02 de l'Apple il. L'Apple 1ics fonc- 
tionne à deux vitesses : 2,8 MHz en 
mode natif; en mode émulation 
(c'est-à-dire lorsque vous utilisez un 


avec 10 ans 


programme de votre ancien Apple Il) 
vous avez le choix entre : MHz et 
28 MHz. | 


Débuter connu, c'est 16.000 propositions 
d'emploi. 


Avec l'IWM (Integrated Woz 
Machine*) l'Apple Ils peut recevoir 
indifféremment des lecteurs de 
disquettes 3,5 pouces 800 Ko ou des 
lecteurs 5,25 pouces 140 Ko, ou les 
faire cohabiter, ce qui contribue à vous 
faire profiter de la plus grande 
bibliothèque de logiciels du monde. Le 
nombre de 16.000 logiciels étant estimatif 
car la seule chose qu'un Apple IIGs soit 
incapable de calculer, c'est le nombre 
d'emplois qu'il est capable de tenir. 

Avec le nouveau système 
d'exploitation ProD6S, l'Apple Is 
permet la hiérarchisation des fichiers 
et des catalogues à la manière de 



















un emploi quand on débute 


‘expérience. 


itils Couleur Font A Anime 


+4 








Macintosh, et la connexion de 
nouveaux périphériques. 


& ets, cela veut dire Graphique et son. 





L'imagination débridée des 
développeurs suffira-t-elle pour utiliser 
les 4096 nuances de couleurs 
disponibles? C’ est probable. Ce qui est 
certain, c'est qu’une résolution de 640 
points sur 284 lignes pour 4 couleurs, 
320 points sur 208 lignes pour 16 
couleurs va donner beaucoup de relief 
à certaines démonstrations. Si vous 
n'en croyez pas VOS Veux, VOUS n'en 
croirez pas vos oreilles non plus. Le 
coprocesseur “son” choisi par 
Apple a déjà une brillante carrière 
derrière lui puisqu'il est employé par 
les plus grands synthétiseurs du 
marché. C'est l'ENSONI®, capable de 
générer 16 voix, 


Apple présente l'Apple Ils. 





et il ne lui manque même pas la parole. 


Les relations nécessaires pour réussir, 


En 10 années, l'Apple II a eu tout 
le loisir de se faire d'excellentes relations 
de travail, imprimante, modem, disque 
dur, que l'Apple 116s continuera à 
entretenir et développer : celui-ci peut 
désormais être connecté au réseau 
AppleTalk et gérer la Laser Writer 
réservée jusqu'à présent à Macintosh. I 
peut aussi recevoir le disque dur SCSI 

L'A ppleIlcs possède 7 connecteurs 
d'extension permettant, à l'aide d'une 
multitude de cartes d'interfaces, de le 


relier à tous les types d'unités périphériques. 


Acheter un Apple, c'est entrer dans 
le Club Apple pour échanger des informa- 
tions, accéder au support technique par 
téléphone 7 jours sur 7, ou aux services 
télématiques du Club. 


D Apple, Apple 1165, ProDOS, Macintosh, Apple Talk, Laser Writer et GS Paint sont des marques déposées par Apple Computer Inc 






















A riter + est un 
logiciel de traite- 
ment de texte de 
TE ner ee 
tion”, proposé par 
A.C.T.,, qui nous a 
déjà apporté 4ème 
dimension. 


Comme la plupart des logiciels 
protégés, Writer + est copiable et 
peut être installé sur disque dur, 
sachant que, lors du démarrage, 
la disquette originale devra être 
temporairement introduite (dans 
ce cas particulier, de façon 
aléatoire). 


ll peut tourner sur Macintosh 
Si2Ko ou sur MacPlus, mais 
n'essayez pas de le faire 
fonctionner sur un “antique” 
Macintosh 128Ko. En fait, nous 
conseillons vivement le MacPlus. 
Qu'en est-il des nouveaux 
modèles de Macintosh ? L'Echo 
des’ ‘Apple (N°5; "spécial 
Macintosh}, classe Writer + dans 
les compatibles Macintosh SE. 


Writer + possède toutes les 
fonctions classiques de traitement 
de textes, avec des avantages et 
des facilités par rapport à 
d'autres, avec aussi des 
inconvénients. Notre analyse ne 
sera pas approfondie sur ces 
fonctions classiques, mais nous 
insisterons sur tout ce qui fait que 
Writer + se présente comme un 
représentant de ce que nous 
avons appelé la 2% génération. 


T/riter - 


Philippe Mathieu 


En effet, Writer + possède d'une 
part des fonctions sophistiquées 
de traitement de texte, d'autre part 
un certain nombre de fonctions de 
mise en page faisant que, sionne 
désire pas une mise en page trop 
complexe, ce seul logiciel permet 
des réalisations intéressantes en 
micro-édition. 


Writer + est multi-fenêtres, le 
nombre de fenêtres n'étant pas 
limité, et on peut ouvrir à l'écran 
plusieurs documents ou 
exemplaires du même document, 
de façon à pratiquer des 
Copier/Coller entre fenêtres. Le 
document voulu peut être activé à 
partir du menu Fichier 
(contrairement à une habitude qui 
est de créer un menu spécial 
Ecran, comme dans Excel par 
exemple). 


Writer + autorise la redéfinition 
de “raccourcis” au clavier, 
propres à l'utilisateur. Si cette 
solution est séduisante, elle est 
aussi dangereuse. En effet, rien 
n'interdit (bien que l'utilisateur en 
soit avisé) d'utiliser pour une 
commande Writer + un raccourci 
classiquement utilisé dans les 
commandes habituelles, comme 


par exemple &C ou #8 X. 


Un document peut, en largeur, 
occuper presque toute la place 
disponible dans le format de 
papier choisi. Par exemple, en 
format A4, la règle est graduée 
jusqu'à 20 centimètres. 


Les fonctions de 
traitement de textes 
classiques 


Writer +, comme la plupart de ses 
concurrents, propose au démar- 
rage une règle sur laquelle 
peuvent être positionnés 
margeurs, marqueur d'indenta- 
tion et tabulateurs. 


Les différentes options de choix 
(polices de caractères, tailles et 
styles) sont accessibles par les 
menus Typo et Style. 


Certaines commodités sont 
offertes, pour le déplacement “à 
la main” de paragraphes ou 
d'images, ou encore pour les 
recherches et remplacements qui 
peuvent porter non seulement sur 
des mots ou groupes de mots, 
mais sur les caractères, tailles et 
styles. 


On peut, en une seule opération, 
modifier simultanément les 
caractères, leur taille et leur style. 
On peut aussi effectuer un 
basculement majuscules/ 
minuscules. Plusieurs options 
sont proposées, et le maniement 
en est parfois délicat, selon qu'on 
unifie totalement le transfert ou 
qu'on procède différemment 
pour, par exemple, les 
ma juscules après un point. 


Un traitement statistique associé 
permet à tout moment de savoir 
quelle est la dimension du 
document en cours de création, 
ou d'une sélection de celui-ci, 
avec diverses infonnations sur les 
signes, mots et lignes. 


Fonctions avancées de 
traitement de textes 


Comme c'est le cas dans la 
plupart des nouveaux logiciels de 
traitement de texte, Writer + offre 
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une panoplie d'outils facilitateurs. 


La césure automatique permet de 
couper un mot en fin de ligne 
selon les règles de la syntaxe 
française. Deux commodités sont 
offertes : 


— forcer la césure par un trait 
d'union ; 

- à l'inverse, refuser la césure, 
par exemple pour éviter de 
couper en deux “Macintosh”. 


Un glossaire très puissant est 
assacié au logiciel. Les 
expressions du glossaire, qui ne 
sont théoriquement pas limitées 
en taille, sont désignées par un 
jeu d'abréviations libres. 


Le texte peut être disposé en 
colonnes. Le nombre de colonnes 
n'est limité que par la largeur du 
papier, une colonne ne pouvant 
pas avoir moins de 1 cm de 
largeur (la documentation dit 1,5 
environ..….), et les colonnes sont 
forcément d'égales largeurs. La 
mise en place de ces colonnes est 
particulièrement aisée, ainsi que 
la modification de leur nombre. Il 
est possible de créer un “saut de 
colonne” forcé, au même titre 
qu'un saut de page. L'équilibrage 
du remplissage des colonnes est 
automatique. 


Les colonnes constituent aussi un 
moyen détourné de placer côte à 
côte du texte et des illustrations, 
lesquelles peuvent provenir 
classiquement d'un album. Nous 
verrons plus loin une autre 
solution. 


Un système de cadres permet de 
réaliser, dans des styles variés, 
l'entourage total ou partiel de 
paragraphes, colonnes, en-têtes et 
pieds de page, zone de notes, 
page entière, etc. 


La gestion des notes de bas de 
page est assez sophistiquée, avec 
numérotation automatique et 
remise en page lors des 
modifications du texte. 


Fonctions “insolites” 


Les calculs 
Grande originalité, Writer + 


possède des fonctions de calcul 
associées, dont le maniement 
n'est pas exagérément complexe, 
et qui offrent des possibilités 
intéressantes (beaucoup plus 
vastes que celles offertes par 
More). On passe par la création 
de cellules, en organisant ainsi un 
petit tableur sur mesure dans le 
texte (une fonction d'interpré- 
tation permet aussi d'introduire 
des formules de calcul 
directement dans le texte, en 
demandant à Writer + de faire le 
reste) 


Nous avons particulièrement 
apprécié les possibilités de travail 
avec l'horloge du Macintosh. 


Les fichiers 


Un petit gestionnaire de fichier, 
simple et facile à mettre en 
œuvre, permet de faciliter les 
opérations de courrier person- 
nalisé. Il ne faut pas y voir plus, 
et croire qu'on va pouvoir se 
passer d'un outil plus 
perfectionné. 


Le lecteur ne sera pas surpris 
d'apprendre que ce fichier est 
compatible avec 4°"° 
dimension. 


La gestion d'images 


La gestion d'images est une 
grande originalité de Writer +, 
qui peut être très utile pour ceux 
qui manipulent couramment de 
nombreuses images : par 
exemple, tenue à jour d'un 
catalogue illustré, représentation 
de molécules, études de CAO, 
etc. 


Des planches pouvant comporter 
1 à 12 images peuvent être créées 
simplement, à partir d'illustra- 
tions type MacPaint ou 
MacDraw:. Un fichier d'images 
peut comporter au maximum 10 
planches, mais le nombre de ces 
fichiers n'est pas limité. La 
séquence d'opérations à 
accomplir est particulièrement 
simple : 

sélectionner la planche ; 
sélectionner l'image ; 

coller sur le texte. 


À noter qu'il est ensuite possible 


de transformer l'image par 
déplacement ou changement de 
dimensions. 


La gestion de paragraphes 


Elle ressemble à la gestion 
d'images, fonctionnant par 
création de fichiers de 
paragraphes comportant au 
maximum 10 thèmes, avec 12 
paragraphes par thème. Chaque 
paragraphe peut comprendre 
jusqu'à 32 000 caractères. Ceci 
venant en plus du glossaire, et le 
nombre de fichiers de 
paragraphes n'étant pas limité. 


La gestion de tableaux 


C'est une autre solution, plus 
souple et plus complète que la 
mise en colonnes, pour 
juxtaposer textes etillustrations et 
réaliser des tableaux où sont 
tracées lignes et colonnes. 


Fonctions 
de mise en page 


La création de structures 


Writer + propose une fonction 
particulièrement puissante : la 
hiérarchisation d'un texte en un 
certain nombre de niveaux 
chapitres, paragraphes, etc. 


La mise en niveaux se fait à partir 

d'une fenêtre de dialogue. Elle est 

toujours descendante et consiste 

à : 

- définir les 
eux-mêmes ; 

- définir pour chacun une 
typographie et une indentation ; 

— définir, si on le souhaite, une 
numérotation (6 possibilités 
sont offertes). 


niveaux 


Ensuite, il suffira, soit a priori, 
soit a posteriori, d'indiquer dans 
la fenêtre de dialogue que le texte 
sur lequel on travaille est de tel 
niveau pour que, automatique- 
ment, soient affectés les éléments 
prédéterminés pour ce niveau. 


De plus, la numérotation est 
automatiquement remise à jour 
(c'est parfois un peu long) pour 
tout le document, en cas de 
suppression ou d'ajout d'un 
élément ayant le statut choisi. 
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La création d'un sommaire 


Une fonction particulière permet 
de créer un sommaire à partir des 
niveaux définis, avec indication 
des numéros de page. 


La création d'urt index 


On peut définir a priori une liste 
de mots qui devront faire l'objet 
d'un index alphabétique annexé 
au document. 


La liste étant créée, on invoque la 
fonction {ndex qui produit une 
liste d'index comportant pour 
chaque mot défini : 


— la liste des numéros des pages 
où il figure, séparés par des 
virgules ; 

— une inscription de ce numéro 
en italique et en gras si le mot 
figure plusieurs fois dans la 
page. 


La vérificatiorr de la mise 
en page 

Il est possible de faire apparaître à 
l'écran une page entière, pour 
contrôler la mise en page. On 
peut également afficher à l'écran 
plusieurs pages (uniquement pour 
voir l'allure générale, car bien 
entendu aucun texte n'est lisible 
dans ce cas). 


Apprendre Writer + 


De la lecture de ce qui précède, 
on peut déduire aisément que 
l'apprentissage de Writer + n'est 
pas immédiat. La documentation, 
claire, est parfois un peu trop 
succincte. Il manque un index 
alphabétique, de sorte qu'il est 
parfois bien difficile d'y retrouver 
ce qu'on veut. Ce d'autant plus 
que la table des matières est 
elle-même embryonnaire. Voici 
pourtant deux fonctions qu'offre 
Writer +... 


Nous conseillons à ceux qui 
abordent Writer + de ne pas 
chercher à réaliser du premier 
coup un apprentissage complet. 
C'est d'autant plus aisé qu'il est 
assez facile “d'ignorer” complè- 
tement certains thèmes, et de les 
aborder seulement quand les 
manipulations de base sont bien 
acquises. 

Par exemple, on peut ne jamais 





créer de hiérarchie rét. «dé 
sommaire. Mais on apprendra 
utilement à s'en servir quand le 
besoin s'en fera sentir. 


On peut aussi, pour commencer à 
placer des images, utiliser 
d'abord la technique classique du 
Copier/Coller, et apprendre 
ultérieurement à utiliser les 
fichiers d'images. 


Le débutant sera aidé dans cette 
tâche par les exercices progressifs 
proposés dans la documentation. 
En revanche, on peut déplorer 
l'absence d'un fichier 
d'assistance en ligne. 


Avantages, 
Faiblesses 


L'avantage principal de Writer +, 
c'est sa grande richesse 
fonctionnelle. Bien entendu, tous 
les éléments de cette richesse ne 
seront pas utiles à tous. 


Certains n'utiliseront jamais les 
fichiers d'images, l'emploi de 
l'Album étant suffisant pour 
couvrir leurs besoins. À 
l'inverse, d'autres choisiront 
Writer + à cause de cette fonction 
particulière. 


Le fichier permettant le courrier 
personnalisé ne sera utilisé... que 
si on fait justement du courrier 
personnalisé ! Le glossaire sera 
suffisant pour certains, alors que 


d'autres auront un recours 
intensif aux fichiers de 
paragraphes. 


Au chapitre des faiblesses, on 
peut noter une surabondance de 
menus, obligeant d'ailleurs à des 
abréviations non classiques 
comme Fich ou Styl. Il n'est pas 
toujours aisé de mémoriser les 
fonctions qui entrent dans 
chacun. Et ceci n'empêche pas le 
recours fréquent (trop fréquent à 
notre goût) à des fenêtres de 
dialogue additionnelles. 


On peut s'interroger sur la 
véritable utilité des fonctions de 
calcul. Writer + aurait-il des 
ambitions d'intégré qui n'ose pas 
dire son nom ? Avec, déjà, un 
mini gestionnaire de fichier. 


La gestion de la marge gauche 
est. curieuse. Impossible de se 
bloquer complètement à gauche. 
Sans compter quelques 
irrégularités de fonctionnement à 
l'impression. 


Le réaffichage d'un écran 
complet, par exemple après 
modification de la typographie, 
est un peu long. Cela n'a 
toutefois rien de rhédibitoire. 


Avantage ou inconvénient ? La 
possibilité de définir des 
raccourcis propres à l'utilisateur 
esttrès séduisante. La possibilité, 
par cette méthode, de redéfinir les 
raccourcis des menus de base 
nous semble toutefois 
extrêmement dangereuse. 


Nous avons aussi vu quelques 
“bombes”, pas trop quand même 
pour un logiciel de venue récente. 
Beaucoup, si l'on considère que 
cette venue récente a eu lieu avec 
un retard de près d'un an sur les 
premières annonces. 


Conclusion 


D'abord, un bel effort pour un 
produit français de valeur 
intemationale. Writer + est un des 
traitements de texte les plus 
puissants du marché, sinon le 
plus puissant, avec, pour seul 
vrai rival, Word 3 de Microsoft. 
De nombreux utilisateurs de 
micro-édition simple pourront se 
contenter de Writer +, sans faire 
appel à un logiciel spécialisé de 
mise en page. 


La vraie question est la suivante : 
vaut-il mieux un intégré rapide, 
divisant les fonctions pour traiter 
chacune d'elles de façon plus 
simple (mais avec, en corollaire, 
une moins grande facilité pour 
entre-croiser les diverses 
fonctions), ou un logiciel unique, 
mettant en permanence à 
disposition de l'utilisateur toutes 
les fonctions dont il peut avoir 
besoin (avec, en corollaire, un 
maniement de l'ensemble un peu 
plus complexe) ? Writer + 
propose une réponse du second 
type, à l'utilisateur de juger. 
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orsque l'on écrit un 
programme qui Scra 
exécuté à l'aide d'un 
interpréteur Basic, il 
est préférable d'opter pour la 
concision afin de rendre le 
logiciel le plus efficace possible. 


Ceci encourage la multiplication 
des instructions sur une même 
ligne mais conduit généralement à 
une parfaite illisibilité. Avec un 
compilateur, et à moins d'être 
adepte d'une certaine forme 
d'ésotérisme, les programmes 
‘tassés’ ne présentent pas 
d'intérêt puisque la position de 
l'instruction par rapport au code 
‘source’ n'influe pas sur la 
vitesse de déroulement du 
logiciel. De plus, pendant la 
compilation, les messages 
d'erreur ne concernent que la 
première instruction incorrecte 
dans la ligne ; s'il y a trois 
instructions en faute, les deux 
dernières ne seront pas signalées. 
Si l'écriture d'un programme 
‘aéré’ est sans problème, il n'en 
va pas de même lorsqu'il s'agit 
de rendre lisible un programme 
créé dans l'optique d'une 
utilisation interprétée, les 
modifications manuelles se 
soldant généralement par des 
‘bugs’ difficilement localisables. 


Le but du petit programme — sans 
prétention — ici listé est donc de 
faire automatiquement ce travail 
fastidieux. Il traite les fichiers 
Basic en format TEXT (issus 
d'un éditeur de texte comme 
‘Edit’, du Basic Microsoft avec 
l'option ‘texte seul”, etc.) et 
génère un fichier décompacté, lui 
aussi en format TEXT, baptisé 
d'un nom correspondant à celui 
du fichier original auquel on 
ajoute le suffixe “.M” pour 
‘Modifié’. 





Le temps nécessaire au traitement 
ne peut être formulé avec exacti- 
tude puisqu'il peut varier dans 






+ 14 minutes avec le programme 
“Décompacteur” interprété ; 
*. 5 minutes avec le programme 


Julien T1 AL 


des proportions importantes selon 
le style d'écriture du programme 
de départ ; cependant, et pour se 
donner une idée, on peut prendre 
comme exemple le programme 
“Minitel” — particulièrement dense 


“Décompacteur” compilé (la 
disquette d'accompagnement 
de ce numéro contient les deux 
versions, la version compilée 
étant, bien sûr, une application 
‘double-cliquable”). 


$ a 
- du numéro 27 de Pom’s. A à 
“Minitel” est ‘éclairci’ en : D 








+ Segment d'un programme Basic : 


S97:FRAMEPOLY VARPTRIDIN)):1F I=0 OR I=? OR I-9 THEN TEXTMODE 
1:TEXTFACE 8 ELSE TEXTMODE 3:TEXTFACE O0 

MOVETO D{N+2)+9,D(N+1)+#11:PRINT AS$(I)}:IF I=0 THEN TEXTFACE ®:MO 
VETO D({2)+9,D(1)+23:PRINT "Fin" 

N=N+27:NEXT:FRAMEPOLY VARPTR(M{0)):FRAMEROUNDRECT VARPTRIN(O) 
),4,4:TEXTMODE 1l:TEXTFACE 0O:MOVETO 227,31:PRINT “’ FMIBUT 
(152,14),K,PSET:PUT(177,14),J,PSET:IF A3=1 AND DE THEN PUTI{ 
195,14),L,PSET 

IF DT THEN PAINTROUNDRECT VARPTRI(P({(0)),4,4:TIMER ON 





+ Le même segment après traitement : 


S97: 

FRAMEPOLY VARPTR(DI(N)) 

IF I=0 OR 1-7 OR I=9 THEN TEXTMODE 1l:TEXTFACE 8 ELSE TEXTMODE 
3:TEXTFACE O0 

MOVETO D(N+2)+9,D(N+1)+11 

PRINT AS$({I) 

IF 1I=0 THEN TEXTFACE 8:MOVETO D{2)+9,D(1)+23:PRINT ‘Fin" 

N=N+27 

NEXT 

FRAMEPOLY VARPTR(M(0)) 

FRAMEROUNDRECT VARPTRIN(0)),4,4 

TEXTMODE Li 

TEXTFACE O0 

MOVETO 227,31 

PRINT ‘'’ a 

PUT(152,14),K.PSET 

PUT(177,14),J,PSET 

IF A3-]1 AND DE THEN PUT(195,14),L,PSET 

IF D1 THEN PAINTROUNDRECT VARPTR(P(0)),4,4:TIMER ON 


Programme ‘Décompacteur’ 


DATA AND, ABS,ALL,APPEND,ASC,AS,ATN,BASE,B 


EEP, BREAK, BUTTON 


DATA BACKPAT,CALL,CDBL, CHAIN,CHR$,CINT,CL 


EAR,CLOSE,CLS 


DATA COMMON, CONT, COS,CSNG,CVD,CVI,CVS,CIR 


CLE, CSRLIN, CVSBCD 


DATA CVDBCD, DATA,DATES, DEFINT,DEFSNG,DEFD 


BL, DEFSTR, DEF, DELETE 


DATA DIM,DIALOG, EQV, EDIT, ELSE,END, EOF, ERA 
SE, ERL, ERROR, ERR,EXP 

DATA EXIT, ERASERECT, ERASEOVAL, ERASEROUNDR 
ECT, ERASEARC 

DATA ERASEPOLY,FIELD,FILES,FIX,FN, FOR, FRE 
; FRAMERECT, FILLRECT 

DATA FRAMEOVAL, FILLOVAL, FRAMEROUNDRECT,, FI 
LLROUNDRECT 

DATA FRAMEARC,FILLARC,FRAMEPOLY,FILLPOLY, 
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GET, GOSUB, GOTO 

DATA GETPEN, HEX$, HIDECURSOR, HIDEPEN, IMP, I 
F,INKEYS,INPUT, INSTR 

DATA INT, INITCURSOR, INVERTRECT, INVERTOVAL 
, INVERTROUNDRECT 

DATA INVERTARC,INVERTPOLY,KILL,LEFT, LEN,L 
ET, LINE, LIST, LLIST,LOAD 

DATA LOC, LOF,LOG, LPOS, LPRINT, LSET, LCOPY, L 
OCATE, LBOUND, LIBRARY 

DATA LINETO, MOD, MERGE, MIDS,MKDS$S, MKIS, MKSS 
, MOUSE, MENU 

DATA MKSBCDS$,MKDBCDS, MOVETO, MOVE, NAME, NEW 
,NEXT,NOT,OR, OCTS 

DATA ON,OPEN, OPTION, OUTPUT, OFF, OBSCURECUR 
SOR,PEEK, POKE, POS 

DATA PRINT,PUT,POINT, PRESET, PSET,PENSILZE, 
PENMODE ,PENPAT 

DATA PENNORMAL, PAINTRECT, PAINTOVAL,PAINTR 
OUNDRECT, PAINTARC 

DATA PTAB,PAINTPOLY, PICTURE, RANDOMIZE, REA 
D, REM, RENUM, RESTORE 

DATA RESUME, RETURN, RIGHTS, RND,RSET,RUN, RE 
SET, SAVE, SGN, SIN, SPACES 

DATA SPC, SQR, STEP, STOP,STR, STRINGS, SWAP,S 
YSTEM, SUB, STATIC, SOUND 

DATA SHARED, SCROLL, SETCURSOR, SHOWCURSOR, S 
HOWPEN, TAB,TAN,THEN 

DATA TIME,TO, TRON,TROFF, TIMER, TEXTFONT, TE 
XTFACE, TEXTMODE, TEXTSIZE 

DATA USING,USR,UBOUND, UCASES,VAL,VARPTR,W 
AIT,WEND,WHILE, WIDTH 

DATA WRITE,WINDOW, WAVE, XOR, CASE, ENDIF, IGN 
ORE, INCLUDE, PAGE, SELECT 

DATA =,1,%,# 


DEFINT A-Z 

DIM Mots.Cle$ (221) 
TEXTFONT 4 

TEXTSIZE 9 

WIDTH 80 
Retour.Chariot$=CERS (13) 
Delimiteur$=CHR$ (34) 
CLOSE 

FOR Index=0 TO 221 
READ Mots.CleS(Index) 
NEXT 


Debut : 

Fichier$=-FILESS$S(1,"TEXT") 

IF Fichier$="" THEN CLOSE:END 
OPEN Fichiers FOR INPUT AS 1 

OPEN FichierS+'".M" FOR OUTPUT AS 2 


Boucle.0: 

Drapeau-Delimiteur=0 

Chaine$="" 

Boucle.l1l: 

IF EOF(1) THEN CLOSE:GOTO Debut 


Caractere$=INPUTS (1,1) 

IF Caractere$=Delimiteur$ THEN Chaine$=Ch 
aine$+Caractere$:1F Drapeau.Delimiteu 
r THEN Drapeau.Delimiteur-0:GOTO Bou 


STRUCTUREXPERT"" 


La solution pour programmer de manière 
structurée en MSBASIC'" et ZBASICTA. 
STRUCTUREXPERTIM vous permet de 
disposer d'un ensemble d'analyses qui 
peuvent être visualisées (fenêtres 
“scrollables”)}, sauvées séparément sur 
fichiers, ou imprimées : 
Arborescence complète (descendante 
et ascendante) des appets GOSUB et 
CALL. 
Listes triées sur plusieurs types de 
critères des GOSUB et des CALL. 
Statistiques : fréquence d'appel de 
chaque routine. 
Détection d'erreurs logiques (boucles 
non contrôlées, récursivité illégale, 
labels et routines non utilisés). 





STRUCTUREXPERT"M 495 F TTC +20 F de port 
Paiement par CB ou chèques adressés à 
Q.S.E — 149, rue Oberkampf — 75011 PARIS 
Tél : (1) 42 49 3795 





cle.1l ELSE Drapeau.Delimiteur=-1:GOT 
O Boucle.l 

IF NOT Drapeau.Delimiteur THEN IF Caract 
ere$=":" THEN Verification 

IF Caractere$-Retour.Chariot$ THEN Drapea 
u.Delimiteur=0 :PRINT#2,ChaineS:PRINT 
Chaine$:GOTO Boucle.0 

Chaine$=-Chaine$+Caracteres:GOTO Boucle.l 


Verification: 

PRINT#2,Chaine$; : PRINT Chaines; 

IF INSTR(Chaïine$S,"IF “)=0 THEN GOSUB Sp 
: GOTO Boucle.0 


PRINT#2,":";:PRINT “:"; 
Boucle.2: 
IF EOF(1) THEN CLOSE :GOTO Debut 


Caractere$=INPUTS(1,1) 

IF CaractereS$=Retour.Chariot$ THEN PRINT 
#2,"":PRINT:GOTO Boucle.0 

PRINT#2,CaractereS$; :PRINT CaractereS; : GO 
TO Boucle.2 


Sp: 

Index=0 

Boucle.Sp: 

IF INSTR{ChaineS,Mots.CleS (Index)) THEN 
PRINT#2,"":PRINT:RETURN 

Index=Index+l 

IF Index=222 THEN PRINT#2,":":PRINT ":” 
: RETURN 


GOTO Boucle.Sp 
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Disquette Pom's 
Macintosh n°31 


Pom's 
Répétition 


Vous y trouverez une nouvelle version - 
compilée - du programme Minitel publié 
dans le numéro 27 de Pom's. Cette version 
est autonome : il s'agit d'une application 
‘double-cliquable' ; les fichiers ‘Minitel/1’, 
‘Minitel/2’ et ‘Basic Runtime’ ne sont plus 
nécessaires. Beaucoup plus rapide aussi : de 
3 à 10 fois selon les fonctions utilisées. 
Enfin, notre programme est désormais 
compatible HFS ; les utilisateurs de 
Macintosh Plus et Macintosh SE vont enfin 
pouvoir utiliser largement leurs dossiers ! 


\taison 


Retour 


Chronomètre L 


Le nouveau système - 4.0 - et le nouveau 
Finder - la version 5.4 - sont aussi sur la 
disquette 31. Le nouveau système 
d'exploitation est accompagné de nouvelles 
version des accessoires Recherche de 
Fichiers, Sélecteur d'imprimantes et 
Tableau de bord. Ii comporte aussi de 
nombreuses améliorations moins visibles 
(nouvelles icônes...) ou absolument 
invisibles sans désassembleur (routines 
modifiées ou réécrites). Le ‘Finder’ a aussi 
eu droit à quelques améliorations : un 
article ‘éteindre sous l'article 
‘redémarrer, un article ‘ranger la fenêtre’ 
qui devient ‘aligner la sélection’ lorsqu'il y 
en a une ; une corbeille qui se gonfle 
lorsque quelque chose est dedans ; des 
fenêtres d'informations repensées, etc... 


fAinnulation 
Correction 


& Mode Edit Fichier 
Sommaire 
















Tableau de bord == 


Clignoternent du 
point d'insertion 


(B—_—_an—_—_— 
5 









Et puis, comme d'habitude, les fichiers, 
sources et programmes listés dans le cahier 
Macintosh de ce numéro 31 de Pom's. 










RÉ 
Pr 2 2 a 










Clignotement 
des articles 










a Fichiers JLB 


Rechercher: |MINITEU 
F1-1.0 


D Côble Mac+/Minite 
D écran Minitel 

© Minitel 27 

D Minite1/1.T 

D Minite1/2.T 


Crééle : Jeu Jan 22 1987, 10:16 
Modifié le : Jeu Mai 21 1987; 17:29 
Tañle : 9879 octets ; 

6K sur le disque 



























© Minitel 27 
€ Bossier Basic 
e Fichiers JLB 


Corbeille 
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ans le numéro 22 de 
Pom’s, on pouvait 
*/ trouver plusieurs astu- 
/ ces qui permettaient 
une réduction impor- 
tante du fichier ‘Système’, ceci à 
fin de gagner de la place sur les 
disquettes dites de démarrage. 


Un de ces ‘trucs’ consistait en la 
suppression de tous les 
accessoires de bureau sauf un; le 
‘Finder’ ne supporterait pas 
qu'on les retire tous. Puisqu'il 
faut en laisser un dans le 
système, autant que celui-ci soit 
un accessoire ‘minimum’ : 
MinAcc occupe seulement 232 
octets. 


Il serait possible de faire encore 
plus petit, mais rien ne serait 
alors visible sur l'écran. 


Fichier Exec ‘MinAcc.Job” 





Asm MinAcc.Asm Exec Edit 
Link MinAccLink Finder Edit 
Fichier ‘MinAcc.Link’ 

] 

/Resources 

MinAcc CO] 


/output Fichier ‘MinAcc’ 
{Type ‘DFIL' 'DMOV' 
$ 


Source ‘MinAcc.Asm” 


; Montre une fenêtre sans titre 

; avec un petit rond dedans dont 

; le pointeur est placé dans le 

; champ WindowPic de la fenêtre. 


RESOURCE DRVR 27 ‘MinAcc' 


; PRELIMINAIRES 

; INCLUDES et EQUATES 
INCLUDE  SysEqu.D 
INCLUDE  ToolEqu.D 


INCLUDE  Traps.Txt 
; MOTS D'ENTREE 
Derou 


; Compertement. uniquement réponse 
; (obligatoire) aux controles, pas 

; de période, évènements de mise à 

; jour (64) et mDown (2}, pas de 


; menu 
DC.W 
DC.W 
DC.W 
DC.W 


$0400 
() 
$0040 
0 


; écarts vers les Routines 


DC.W digoradur-Derou 
DC.W OmDone-Derou 
DC.W OrnCtl-Derou 
DCW OrmDone-Derou 
DCW klozadur-Derou 
; OUVERTURE 
digoradur 
MOVEML  AIl-A4,-(SP) 
MOVE.L Ai,A4 


; sauvegarde du GrafPtr de 


; l'application 


CLRL 
MOVEL 
_GetPort 
TSTL 
BNE 


en Cours 


(SP) 
SP,-(SP) 


dCtiWindow(A4) 
prenestrameus 


; Sil'on n'a pas déja une fenêtre, 
; il faut en fabriquer une : 


CLR.L -(SP) 

CLRL -(SP) 

PEA gwetenn 

CLRL -(SP) 

CLRW -(SP) 

MOVE.W #18,-(SP) 

MOVE.L #-1,-(SP) 

MOVE #S$0100,-(SP) 

CLRL -(SP) 

_NewWindow 

MOVE.L (SP)+,A0 

MOVEL AO, 
dCtilWindow(A4) 

MOVE.W dCtiRefNum(A4), 
WindowKind(A0) 


; ROND 
MOVEM.L  AI1-A4,-(SP) 
MOVE.L dCtlWindow(A4), 
-(SP) 
_SetPort 
MOVE.L dCtlWindow(Ad4), 
-(SP) 
CLRL -(SP) 
PEA vue 
_OpenPicture 
_SetWindowPic 
PEA q 
_FrameOval 
_ClosePicture 
MOVEML  (SP)+,A1-A4 
; Si l'on a déja une fenêtre 
prenestrameus 
distro 
_SetPort 
MOVEML  (SP)+,A1-A4 
OmDone 
MOVEQ #0,D0 
RTS 
; FERMETURE 
klozadur 
MOVEML  A1-A4,-(SP) 
MOVE.L A1,A4 
; même procédure 
; qu'à l’ouverture : 
CLRL -(SP) 
MOVEL SP,-(SP) 
_GetPort 
MOVE.L dCtlWindow(Ad4), 
-(SP) 
CLRL dCtilWindow(A4) 
_DisposWindow 
BRA.Sdistro 
; CONTROLE 
OrmCtl 
MOVEQ #0,DO 
MOVE.L j0Done,-(SP) 
RTS 
; DONNEES 
gwerenn DCW 40,1,60,2t 
q DCW 2,2,18,18 
vue DCW 0,0,20,20 
END 
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Kino(201) 


Principes de fonctionnement 


Kino est une application qui permet de faire défiler à 
l'écran les images d'un album de type usuel ou de 
type “Multi-Scrap”. Les images sont 
automatiquement centrées et s'affichent sur un fond 
qui peut être modifié. 


Les albums d'un seul de ces deux types sont 
considérés comme des documents de Kino. Le finder 
lance donc Kino lorsque l'on clique deux fois sur 
l'icône d'un album du type adéquat. 


Lorsqu'on lance directement K'ino, cette application 
cherche à ouvrir un album par défaut, ayant l'un 
quelconque des deux types ci-dessus. Le nom de cet 
album peut être choisi à l'avance, lors de la 
configuration de Kino (voir le paragraphe 
‘Configuration de Kino’). 


La durée d'affichage des images peut également être 
fixée à l'avance. Elle peut varier de quelques 
dixièmes de secondes à plus d'un an. 

En sortie, Kino peut lancer une application 


quelconque, dont le nom peut également être choisi 
lors de la configuration. 


Configuration de Kino 


1] Album à ouvrir par défaut 
et application à lancer 


é File Edit 











! STR#s from (IT TUE “à dr 
LéRer STR* “noms” ID = 171 Ris 
CES $TR# noms" 10 = 171 from Kino(1001) & = 







numStrings 2 


.... 


The string elbum per défeu 
coco 
The String [MacPaint «—<{ application à lanca 
LLLELL] 
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Avant usage, Kino doit être configuré. Pour cela, 
un éditeur de ressources est nécessaire, par 
exemple ResEdir. 


A l'aide de ResEdit, ouvrir la ressource de Kino 
intitulée : 
STR# "noms" ID = 171 


Cette ressource contient le nom de l'album que 
K'ino cherchera à ouvrir dans le cas d'un lancement 
direct, et le nom de l'application à lancer lors de la 
sortie de K'ino. À l'aide de ResEdir, vous pouvez 
modifier librement ces noms, qui sont initialement 
“diapos” et “MacPaint”. 


Lorsque le nom de l'application à lancer est celui de 
Kino, Kino se relance lui-même et refait défiler les 
images de ‘‘diapos”. 


2] Durée d'affichage de chaque image 
et ‘bip? 


Le nom de Kino ne doit comporter aucune 
parenthèse, ou alors être de la forme ‘‘mot(n)” où 
mot est une suite de caractères sans parenthèse, et n 
un nombre compris entre 0 et 7F FF FF FFen 
hexadécimal, soit 2 147 483 647 en décimal. Ce 
nombre est la durée d'affichage des images en 
tierces. Par exemple, si le nom de Kino est 
“Kino(600)”, chaque image restera affichée 10 
secondes. 


En fait, la durée d'affichage ne peut être inférieure 
aux quelques dixièmes de seconde qui sont 
nécessaires pour collecter l'image sur le disque. La 
durée maximale est de 414 jours. 


Si la durée d'affichage est un nombre impair de 
tierces, un bip se fait entendre à l'apparition de 
chaque image. 


3] Albums reconnus comme 
documents de Kino 


é File Edit 
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& File Edit 





BNDL 1D = 128 from Kino = 


Le — 
OwnerNeme [CES | 


owneriD 0 


Pour fixer le type des albums reconnus comme 
documents de K'ino, il faut remplacer, dans les 
informations sur Kino et dans le ‘bundle’ de Kino, 
la séquence des 4 caractères WXYZ ci-dessus par 
la séquence adéquate qui est MACS pour les 
albums de type usuel, et mscr pour les albums de 
type Multi-Scrap. 


Pour accéder à ces chaînes de caractères, il est 
nécessaire d'utiliser l'éditeur de ressources, que 
nous supposerons être ResEdit. Pour intervenir 
sur les informations sur Kino, sélectionner le nom 
de cette application dans la liste des applications, et 
choisir la rubrique adéquate du menu du fichier. 
Pour intervenir sur le ‘bundle', ouvrir Kino, puis 
sa ressource de type BNDL et d'ID 128. 


Il est également possible de changer le type et ie 
créateur des albums. 


4] Fond de l'écran 


Pour modifier le fond sur lequel s'affiche les 
images présentées par Kino, il suffit de modifier 
avec un éditeur de ressource la ressource de type 
‘PAT ? de Kino. Il est bien entendu possible de 
choisir un fond blanc. 


Installation et exploitation 
de Kino 


Une fois Kino configuré, son bon fonctionnement 
est obtenu en le plaçant sur une disquette de 
démarrage. Dans le cas d'un disque fonnaté HFS, 
les albums à ouvrir par Kino doivent être placés 
dans le même dossier que Kino. 


Celui qui doit être ouvert lors du lancement direct 
de Kino doit avoir le nom figurant dans la 
ressource STR# ID 171. Si ce nom ne correspond 
pas à un album, ou si l'album ayant ce nom ne 
contient pas d'images, l'exécution de Kino 
s'achève immédiatement. 


Si Kino n'est pas placé sur la disquette de 
démarrage, il ne peut être lancé en cliquant deux 
fois sur l'icône d'un album. 


Après lancement, Kino fait défiler les images de 
l'album choisi, ou celles de l'album par défaut. 





Pour être efficaces, les actions décrites ci-dessous 
doivent intervenir quelques dixièmes de seconde 
après l'apparition d'une image à l'écran. Kino 
collecte en effet une image sur le disque aussitôt 
après avoir affiché la précédente. 


Pour arrêter sur une image, presser le bouton de la 
souris. 


Pour passer à l'image suivante avant que la durée 
d'affichage soit écoulée, appuyer sur le bouton de 
la souris et le relâcher, ou presser la touche de 
tabulation. Pour revenir à l'image précédente, 
presser la touche d'effacement. 


Pour sortir de Kino, deux solutions sont possibles : 


+ presser la touche F, ce qui lance le finder ; 

* presser la touche E, ce qui lance, si elle a été 
placée convenablement sur le disque, 
l'application ayant le nom figurant dans la 
ressource STR# ID 171, parexemple MacPaint. 


Si Kino ne trouve pas cette application, le Finder 
est lancé. 


En l'absence d'intervention, après avoir affiché la 
dernière image, Kino cherche à lancer l'application 
choisie, et, s'il ne la trouve pas, retourne au finder. 


N.D.LR. : l'application ResEdit se trouve sur la 
disquette Pom's Mac G. Un autre éditeur de 
ressources — REdit — est disponible sur la disquette 
d'accompagnement du numéro 24 de Pom's. G 





Source de l'Application ‘Kino’ 








* SHAANARURHN 

* e StartUp : 

* DSononnnnunn 

* Succession d'Images à l’écran 
mm == — 
x Installation d’un GrafPort pour desiner 
* sur l’écran entier 

% On quitte après un certain délai ou par 
* pression sur le bouton de la souris. 
Koessronns eos ss cos soso o cresson sss és ee 6 
* A2 : adresse du SMAP 

* A3 : PicHandle 

* Ad : handle de la liste des noms 

* DO : ID de l’image 

* D3 : rang de l'image dans l’album 

* D4 : nombre d'images dans l’album 

* D5 : délai 

* De : date de changement 


kossessessessseeesesesessessumessesretseeesse 


*noun PRÉLIMINAIRES 00000N0NNOnUGOnnNnnNNANONDOE 


INCLUDES 
include MacTraps.D ; 


* 








. TRAP 
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include ToolEqu.D ; equates du ToolBox 
include QuickEqu.D ; equates de QuickDraw 
include mABcro.Txt ; célèbres macros 

x EQUATES 

CurApName equ $910 

ParenthOuv equ $28 

ParenthFerm equ $29 

abID equ SEEN à 

ppID equ -32768 

HollDegwez equ SOOOOFFFF 

mButDwnEvt equ 1 ;bouton en bas 
keyDwnEvt equ 3 touche en bas 
touchE equ 14 ;:N° de touche 
touchF equ 3 :N° de touche 
touchTab equ 48 :touche de tabul 
touchBac equ 91 touche de Backs 
DelDef equ 100 : délai par déf. 
HautEc equ 342 

LargEc equ 512 

LargCoïin equ 50 ;ovale du. 
HautCoin equ 30 ;..rect entourage 
LongPtr equ 80 ;:long. pointeur 
AdNom equ 18 écart du nom 
fnfErr equ -43 fichier introu. 
* 

XDEF DERU 
hÂsesesseesssesssesasessseseseseesseesessenssse 
DERU 
*ou0 PREPARATIFS ovoooooonsooooooonnñnnaononon 
*-— COLLECTE DU NOM DE LA BOBINE 
*+++ Liste des NOMS +++4++++75+++4++++++ +++ ++ 


* Cette liste doit être ouverte 

* dans tous les cas 

* pour lancer l'application suivante. 

* Le handle est placé dans A4. 

D RARRARAAÉARÉERELÉERÉÉERÉELÉERÉRRÉLARERRALRERX EX 
GetRes #'STR#',#ablD 
dep -L,AA4 handle de la liste 

*X+++ Paramètres +44 


moveA.L #AppParmHandle,AO ;adr handle 


moveA.L (AO),2AO ;handle 
moveA.L (A0O),A0 : adresse 
move.W 24A0),D0 nombre 

beq.s @10 :0:pas de dias 
CLÉ 2 (A0) 


*+++ Adresse du NOM “+++ Et 








*—-—-— cas du lancement par des diapos ------- 
lea 12(A0),A0 ;adres nom 
bra.s ouverture 

*--- lancement direct ------- 

@10 moveA.L (A4},AO :adr liste 
lea 2(A0),A0 ;:adr nom 

“50006000 

ouverture 

* OUVERTURE DU CARROUSEL 
eP W ;pour RefNum 
emp -L,AO 
_©penResFile 
dep .W,D0 :RefNum 


Si I.W,#-1,D0,EXIT 


*+++ Etude du ResOurceMap ++++++HH++t+ +++ 





*--- préparatifs 
moveA.L #TopMapHndl,AO 
moveA.L (AO),AO 
moveA.L AO,A1 
_ELock 
moveA.L (AO),A2 :adresse -> A2 
addA.W 24(A2),A2 :adr liste typ 


*--- présence du SMAP ID = 0 ? ------------- 

: présence du SMAP ? 
move.L +#'SMAP',D1 
BSR RECHTYPE 
bmi.sS @10 

;vérification de l'ID 
move.W 6(A0}),D0 
moveA.L A2,A0 
addA.W DO,AO0 


;handle -> AO 
; Sauvegarde 


Kino(201 ) 


:adr ler ID 


move.W  (AO),DO : premier ID 
bne.s @10 
bra.s @20 
@10 emp .W,#1 
_SysBeep 
@11 emp .W,#1 
_SysBeep 
bra.W EXIT 
*--- présence d'images ? —------—--—--—————— 
@20 move.L #'PICT',DI 
BSR RECHTYPE 
bmi.sS @11 
move 4 (A0) ,D4 :nbre images-1 
addQ #3,D4 ; nombre+2 
RE ÉINITIONSLE = === === 
moveA.L Al,A0 ;rxestauration 
HUnlock 
*ooooca 
ACTIONS 
*-—— COLLECTE DU DELAÏ 
moveA.L #CurApName,AO 
move.B (A0O),DO ;longueur nom 
*+++ Recherche de la Parenthèse Ouvrante +++ 
@0 addQO.wW #1,A0 ;incrémente 


SSi I.B, #ParenthOuv, (AO), @5 
subQ.B #1,D0 
beq.s @20 
bra.sS @o 
*+#+ Recherche de la Parenthèse Fermante +++ 
@S move.L AO,Al :adr dans AO 
addQ.wW #1,AlL 
@10 addQ.W #1,Al ;incrémente 
SSi I.B, #ParenthFerm, (Al),@15 
bra.s @10 


*+++ Formation de la Phrase ++##++5+525++444+5+ 


@15 move.L Al, DO 
sub.L AO,D0 
sub.B #1,D0 
move.B DO, (A0) 


*+5—+ Conversion en Délai ++++44 44444444 


; boucle 


: dernière adr 
:longueur+i 
longueur 


emP .W,#1 
_Pack7 
move-L DO,D5 délai = DS 
bra.s geo 
@20 move.L #DelDef,D5 : délai défaut 


*or 
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geo 


* 





INSTALLATION DU GRAFPORT 


*ii+ Initialisations et Collectes ++4+4+4#++444 
*--- QuickDraw et curseur 
pea thePort (A5) 

_InitGraf 
_IinitCursor 
_BideCursor 


*--- ouverture du GrafPort —----- 


pea g 
_OpenPort 

Æ——— MmOtÂf ----——— 
CoïlRes #ablD,Pattern 
dep .L,AO 
_Hlock ; verrouillé 
move.L (AO),A6 sadresse 


*+++ Signature +++ HR ED 
;: Si le bouton est pressé lorsque l’on 
; arrive ici, 
; les initiales AB apparraissent en haut à 
; gauche, dans la barre de menu. 
: Elles y restent tant que le bouton est 
; pressé 
RRAKARRRRRRRRRRRARRARARRRRRRRRARRRARRRÉRRARÉE 
ep W 
_Button 
dep .W,D0 
beq.s suite 
P2Couic #4,#14,MoveTo 
pea sign 
_DrawString 
@10 ep W 
_Button 
dep .W,D0 
bne.s @10 
X+++ Peinture +++4++++4++48 8 + 
suite 
pea g+PortRect 
emp .L,A6 
_FillRect 


INITIALISATIONS 

move.L #HollDegwez, DO 
_FlushEvents 
GetRes #'SMAP',#0 
dep .L,A0 
_EBLock 
moveA.L (A0O),A2 
moveQ #1,D3 
BSR Prepa 

*unn DEFILE DES IMAGES 00ou00nnonn0nnnnoununn 


TRO 
* 


* 





:index 


:verrouillage 
;adres SMAP 
:lere image 





INCREMENTATION 
addQ #1,D3 
Si .B,D3,D4,EXIT 
à—— DESSIN 
K+++ Bip PO RTE TERRE HT +++ 
btst #0,D5 

beq.s eff 
emp .W, #1 
_SysBeep 


: compteur 


+++ Préparation de l'Ecran #++44+4#4+48444+ 





eff pea g+PortRect 
emp .L,A6 
_FillRect \ 
pea entourage Kino(201) 


emp .W, #LargCoïn 

emp .W, #HautCoin 

_EraseRoundRect 
*+++ Aht 

emp .L,A3 

pea cadre 

_DrawPicture 

emp .L,A3 

_ReleasaResource 


ATTENTE 


X+++ Préparatifs +444 tt tt 
BSR Prepa 
move.L #0,A0 
_Delay 
move.L DO,D6 
add.L DS,D6 


X+t++ BOUCLE “+4++++ 4H 


EE RE EEE EEE EEE 


srect figure 


* 





@10 move #-1,D0 tous évènts 
lea Degwez,A0 spoint sur év. 
_GetOSEvent 
beq.s @20 ;évènemt: @20 
cmp.L T,D6 
bpl.s @10 boucle 
bra.s TRO autre image 

*--- un évènement a eu lieu -------------——- 


@20 move.W Degwez,D2 ; numéro évt 
SSi I.W, #mButDwnEvt,D2,attente 
SSiNon I.W,#keyDwnEvt,D2,@10 
move.B TouNo,DO :No de touche 


cmp.B #touchF,D0 :retour Finder 
bne.s @30 : EF - Finder 
_ExitToShell 


@30 SSi 1.B,#touchE,DO,EXIT 
SSi I.B,#touchTab, DO, TRO 
SSi 1I.W,#2,D3,@10 
SSiNon 1I.B,#touchBac,D0,@10 


subQ #2,D3 
BSR Prepa 
bra.sS TRO :on continue 


* 


CERN TETE ENT ENT EEP ENT V EEE DENNEREENERENENTES [VERTE TETE TETE TEE CT ESC TIC E TETE CETEEEOT EEE CRENEEENENTEE 


L'image reste affichée tant que que le 


bouton de la souris est pressé 
DÉRARARRRRRRRRRAARRRREAARERARAREREEAAR EX AR AR X 


* * 


attente 
ep W 
_Button 
dep .W,D0 
bne.s attente 
bra.s TRO 


*u0un SORTIE nanonnnonoonuduonuDnnnAnnunDunnounn 
EXIT 


* 





COLLECTE DU NOM 


moveA.L (A4),Al sadr list noms 





moveQ #3,D0 ;:nbre de noms 
add.B 2(A1)},D0 
addA DO,A1 
*-—— VERIFICATION 
move.L #LongPtr,DO 
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—— 


_NewPtr,CLEAR 
_GetVol 

move.L Al,AdNom(AO) 
_GetFilalnfo 

SSi I.W,#fnfErr,D0,@10 


LANCEMENT 

mouvO L,Al,anv 
_Launch 

10 _ExitToSbell 


KLLLLELELEEELLLELLELELELELELEEEEEEEELELELELE 


*unun SOUS-ROUTINES on0n0000u0nunnnanuOQnOQnnnnnn 
RECHTYPE 


* RECHERCHE D'UN TYPE DANS UN FICHIER —— 
; modifie AO,D0 

; entrée adresse de la liste des 

;: types : A2 

; type recherché : D1 

; sortie : N = 0 si type trouvé, 

; AO adresse du type 

; N = 1 sinon 
LRARRARRÉRRRRRÉRRRRRRÉRÉRRRRRÉARRRRRRRRRÉRÉRÉRÉÉÉÉ 


* 








lea 2(A2},A0 


move.W  (A2),D0 
@0 sSsi .L, (A0) ,D1L,@1 “type "PICT'e? 
subQ.W #1,D0 
bmi.w @l ;Sinon.… 
addg #8,A0 ;incrém adx 
bra.s @o ;-.et on boucle 
@1 tst.w DO 
RTS 


*00000000000U0nUNUnNUNUnnE 
PREPA ;:No de l’image : D3 
* PREPARATION DU DESSIN 


*+++ Calcul de l’'ID “HR 


* l’ID est placé dans DO 
JRARARRRRRRRRRRARRRRRRRAARRRARARRAERRRAARRRR 





move.W +#ppiD,DO 
moveA.L A2,A0 


;initialise 
;adr du SMAP 


@0O move.B (A0),D1 ; rang 
SSi .B,D1,D3,@10 
addo #1,D0 
addo #1,A0 
bra.s @o 


+++ Collecte de l'Image +444 
@10 CollRes D0,Picture ;PicHandle 
dep A.L,A3 ;PicHandle: A3 


*#++ Calcul de Rectangles +++-+++-45+++4++4++4++4+ 
@20 





*--- mise à jour de vect ------------------- 
pea vect 
P2Couic #LargEc,#HautEc,SetPt 
*--- écriture du rectangle provisoire à ---- 
*--- l'adresse cadre ------ 
moveA.L (A3),A0 ;adr image: AO 
lea cadre,Al ;adresse: Al 
move.L 24A0), (AL) ;tr  TopLeft 
move.L 6(A0),4{A1) ;tr BottomR 
-==:calcul dé vect.=2 2227222 
emp .L,BotR 
pea vect 
_subPt 
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emp .L,TopL 


pea vect 
_SubPt 
lea vect ,A0 
asr.W (AO) 
asr.W 2(A0) 
*--- placement du rectangle (au centre) ---- 
pea cadre 
P2Couic vect+2,vect,OffSetRect 
*--- rectangle d’entourage ---------—-—------ 
lea entourage,AO 
move.W cadre,DO 
asr.W #1,D0 
move.W DO, (AO) 
move.W cadre+2, DO 
asr.W #1,D0 
move.W DO,21(A0) 
move.W cadre+4,DO 
add.w #HautEc, DO 
asr.W #1,D0 ;division 2 
move.W DO,4(A0) 
move.W cadre+6,D0 
add.w #LargEc, DO 
asr.W #1, D0 ;division 2 
move.W DO,6(A0) 
* 
RTS 


KLELLELLELLLLLLELELLLLEREEEEEEEELESEEEELEELELELE 


*anun DONNEES 2annnnnnnnnnnnnnnnnnnnONNNNnNnnn 











* GRAPHIQUE 
g dcB.B PortRec,0 ;GrafPort 
vect dc.w 0,0 : centrage 
cadre 
TopL dc.w 0,0 
BotR : dc.w 0,0 
entourage 
dc.w 0,0 
dc.W 0,0 
Là EVENEMENT 
Degwez 
dc.W 0 
dc.W 0 
TouNo: dc.B 0 
dc.B 0 
T: dc. 0 ;temps écoulé 
dc.L 0 
dc.w 0 
x NOMS 
anv dc.L 0 
sign dc.B 2 
dc.B ‘AB* 
* 
FIN 


GUOUOOOOUODOUONUUNUUUUUTUUUUNUNUUUNUNUUUNUUN 
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Les nouvelles versions d'InterPom's 





Version 
IBM° PC/AT” 
et compatibles 


e Transmission par le réseau 
téléphonique de tous les types de 
fichiers et programmes entre deux 
IBM® PC/AT'" ou compatibles. 


Protocole ‘intelligent’ garantissant des 
transferts d'informations ultra-fiables. 


° Émission de tous les types de fichiers 
et programmes vers les Macintosh. 


° Émission des fichiers au format ‘texte’ 
vers les Apple //. 


+ Réception des fichiers ‘texte’ émis par 
les Apple // et Macintosh. Les fichiers 
au format ‘texte’ sont recodés 
(caractères accentués et spéciaux). 














Version 
Apple // 


° Transmission par le réseau 
téléphonique de tous les types de 
fichiers et applications entre deux 
Apple //. 

+ Protocole ‘intelligent’ garantissant des 
transferts d'informations ultra-fiables. 


Émission de tous les types de fichiers 
et programmes vers les Macintosh. 


Émission des fichiers au format ‘texte’ 
vers les IBM® PC/AT" et compatibles. 


+ Réception des fichiers ‘texte’ émis par 
les IBM® PC/AT” et Macintosh. Les 
fichiers au format ‘texte sont recodés 
(caractères accentués et spéciaux). 


Possibilité de réception sans recodage 
des fichiers ‘texte’ émis par les IBM® 
PC/AT'" et Macintosh. 


e Utilisation possible avec le Modem 
intégré au Minitel, avec un Modem 
classique, ou en local entre deux Apple 
//, un Apple // et un PC‘* ou encore un 
Macintosh et un Apple //. 


° Possibilité d'utiliser le port intégré du 
I1Gs. 





Version 
Macintosh 


° Transmission par le réseau 
téléphonique de tous les types de 
fichiers (textes, polices de caractères, 
feuilles de calculs, accessoires de 
bureau...) et applications entre deux 
Macintosh. 


Protocole ‘intelligent’ garantissant des 
transferts d'informations ultra-fiables. 

e Émission des fichiers au format ‘texte’ 
vers les Apple //. 


° Émission des fichiers au format ‘texte’ 
vers les IBM® PC/AT‘"* et compatibles. 
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Réception de tous les types de Vitesse de transmission : ; Données : 
fichiers émis par les Apple // et 


IBM® PC/AT"“, Les fichiers au (&, 300 bauds (9 4800 bauds O 5 BiIRS 
format ‘texte’ sont recodés © 600 bauds © 7200 bauds : Obs 
(caractères. », accentuess, et © 1200 bauds © 9600 bauds : © ? bits 
spéciaux) et stockés sous la forme © 1800 bauds © 19200 bauds © 8 bits 
de fichiers ‘MacWrite’ ; les autres © 2400 bauds ©57600 bauds | 
types sont stockés sous la forme © 3600 bauds E 

de fichiers ‘Edit’ (utilisables 
depuis n'importe quel té - 
programme acceptant le format RARITEZ 


TEXT). @Aucune | ©ibit ( UK ) 
Possibilité de réception sans O impaire OL bits : 


recodage des fichiers ‘texte’ émis O Paire : O2bits | Annuter | 
par les Apple // et IBM®@ PC/AT'# , 


ou compatibles. 





+ Option de transmissions groupées et automatiques 
de fichiers ou applications (jusqu'à dix). La 
possibilité demeure même dans le cas de fichiers 
ou applications répartis sur plusieurs volumes 
différents. 


Utilisation possible sur le port série 
‘Communication’ ou sur le port ‘Imprimante’. Le 
port ‘Imprimante’ n'est toutefois pas accessible si 
le réseau AppleTalk est connecté. 


Utilisation possible avec le Modem intégré au 
Minitel, avec un Modem classique, ou en local 
entre deux Macintosh, un Macintosh et un IBM®& 
ou encore un Macintosh et un Apple //. 


Configuration possible du port courant pour une 
utilisation avec un Modem ou en local entre deux 
appareils. On peut ainsi transmettre des 
informations jusqu'à 57 600 bauds soit. en tenant 
compte du protocole utilisé, plus de 5 Ko par 
seconde. 


Options 











Port communication 


D|port imprimante 


Configuration du port... 
Enregistrer la configuration. 
Charger une configuration. 





Réception sans modification 


+ Sauvegarde possible de 
la configuration en cours 


das l'optique de Eiste des fichiers à émettre : 


l'utilisation ultérieure Japanese Girl 
d'une même configu- Billiard 
ration. DisklUrite 
e Possibilité de ‘démar- PaintMouer 
rage configuré par un Polices 
‘double-clic’ sur un Ecran- 0 
fichier de configuration. Com [9600_7_P_1] 
* Menu ‘Quitter permet- //Mac 1001111 1001100 
tant le départ vers une I[->Mac 


application au lieu du 
‘Finder’. 
Compatible tous environ- 
nements. 





Sélection des fichiers : : ok 


Annuler 





Bon de commande page 75 
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E—— Pan Mc B et Mc C- Bon de commande pue 4 


Polices de la disquette se Mac 78 


Portez ce bel de vieux mishy oux 267 juges qui funent 


LORIEZ CE ee DE UIEUX HHISKY AUX sp JUGES ar FUNENT 


asie ce bot de: vieux PRRSE oux «257; juges qui Lists 


Portez ce bol de vieux whisky 
Portez ce bol de vieux whiskÿ aux 


Portez ce bol de pieux whisky aux 257 
portezfceboildebreuxfwniskulsuxf25 ugesfauftument] 
Portez ce bal de vieux ee aux Lu juges qui 


EMMTINX Ë 


Porwz ve Bol de vieux whisky aux 257 juges qui furent 
TorPTtezs Le 607 ne cmeyX IIUNCK 20 ay x 257 KYTeC rh 
Portez ce bof de vieux whisky eux 257 juges qui fument 

Portez ce bol da vieux whisky aux 257 juges dut fumant 
PAANOI ANA HN DPUAMR mu ARANTE PANT NE IUT Au HT FHINY 1 
POUCTEŸ C= EOL d= WIDE WHIShr SUTX 2357 
Portee ce bel be bleux phirkyaux 257 œuger Éul Fument 


FRERES 











SR 





IDortez ce bol de vieux whisky aux 


Partez ce bel de heu dishy eux 257 juges qui Tasent 


Partez ce bol deviez smhiskiz aux 287 unes qui 


Portez ce bol de Licux 


Portez ce bol de vieux Whisky aux 
Partez ce bol de vieux whisky aux 257 juges 


Il s'agit d'un système graphique 
double-haute résolution écrit en Pascal. 
COGO vous permet de manipuler des 
graphiques grâce à un langage de 
description des objets - points, angles- 
et à l'emploi de fonctions primitives de 
manipulation très puissantes : cercle, 
tangente, 

intersections, parallèles, etc. I} est ainsi 
possible de tracer des grilles, des 
cercles, des segments de droite, des 
tangentes communes à deux cercles, de 
calculer des distances, des angles. 


L'éditeur pennet une saisie rapide du 
langage. Une instruction COGO 
peut-être exécutée dèsla saisie pour 
faciliter la mise au point, ou au sein d'un 
programme. 
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POXTEZ CE BOL DE ViEUX WHisCY AUX 257 JUGES 
Portez ce bol de vieux Whisky aux 
Portee ce bol de vieux 


Pontez ce bol de vieux WBAËY aux 257 juges qui fument 
Portez ce bol de vieux Whisky eux 257 juges qui fumnent 
Pértez ce bol de vieux whisky aux 257 juges qui finnent 


Portez ce bol de vieux whisky aux 257 juges qui 
Portez ce bei de vieux whisky aux 


Portez ce bol de vieux whisky aux 257 juges qui fument 
Portez ce bol de vieux whisky aux 297 juges qui fumnent 

Portez Ce bol de vieux whisky aux 
Porcezee bot de vleux wblshy aux 257 fuges gué fueuns 
Portez ce bol de vieux whisky aux 25 


745% FI Li TI IOIIL LAODIZ FIV 257 GIE IQ WIJIth 


7HDRIV M L+i TI INIIV LAND 12 FIV 
Bonto ce lot de maux wvhialy aux 257 jugpa qui furment 


Portez seboide Vieus wbisky aux 297 Juges QU fument 
Pa rez ce bol de vieux this aux 257 |uges qui funent 


Portez ce bol de UieLiX &hisÿ ciux 25 
Portez co bol deviour uhisky eu 257 juges Qu ferment 

Portez ce boi de vient 1hisky eux 257 juges qui fument 

Portez ce bol de vieux whisky aux 257 juges 
Porlez ce bol de vieux whisky aux 257 


Portez ce bol de vieux whisky aux 257 juges qui furnent 


Forte & bi & deux EE où 257 Je Qi url 
PORTEZ CE BOL DE VIEUX WHISKY AUX 257 


Vous avez un Apple fe avec Chat Mauve ou un{{c ? 





Vous avez Pascal 1.2 ? 


COGO 


Par Nicolas Montsarrat 


Utilisez 


Apple //e, /lc 


Ce programme, destiné à résoudre 
des problèmes de géométrie plane, 
comporte des instructions de stockage 
sur fichier afin de permettre la reprise 
d'un calcul. 


200,00 F TTC, franco 
Bon de commande page 74 
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DOS 3.3 





Serge Cattan 





Programme LE VOYAGEUR 


10 REM RRRRRRRRRRANRRARRARRARRRARRARARAARARARAAAA 
20 3 
30 REM CATTAN Serge LE VOYAGEUR 11/86 
40 : 


S0 REM MRARARRARARRRRARAAERAMRRRAAARREAAARÉRRARAR ARE 


60 ONERR GOTO 2280 
FDL TS mr eee EE 


100 INVERSE 
110 PRINT " 


". 
‘ 


120 PRINT SPC( 40) 
130 NORMAL 


: PRINT SPC( 40) 
LE VOYAGEUR 


140 POKE 34,4: VTAB 8 

150 PRINT "ANALYSE D'UN PROBLEME cu 0 
160 PRINT "REPRISE ANALYSE EXISTANTE -—> 2" 
170 PRINT "MODIFICATION DONNEES nu Ci 
180 PRINT "MODE D'EMPLOI > 4" 
190 PRINT "RETOUR AU BASIC => 5" 


200 POKE 36,11: VTAB 18: INPUT "VOTRE CHOIX ? ":RS 
:R = VAL (R$) 

210 ON R GOTO 260,230,240,3090,250 

220 GOTO 200 

230 GOSUB 2070: GOTO 570 

240 GOSUB 2070: GOSUB 1580: GOTO 570 

250 POKE 34,0: END 

260 HOME 

270 VTAB 8: PRINT "NOM DE L'ANALYSE (? POUR LE CAT 
ALOGUE) :": PRINT : INPUT ” - NES 

280 IF NES = "?" OR LEN (NES) = O0 THEN GOSUB 237 
0: GOTO 260 

290 PRINT : INPUT "NOMBRES DE TRAJETS ? ":NRS 

300 NR = VAL (NRS): IF NR < 2 THEN PRINT ” UN CHI 
FFRE > 1 S.V.P.": GOTO 290 

310 GOSUB 330: GOTO 400 

320 REM =========2== DIM TABLEAU =a====©c-=====---- 


330 IF ME = 1 THEN RETURN 

340 DIM M(NR,NR)J,C(NR,NR),D{NR,NR),XINR +# 1J,Y(NR 
+ 1),VS(NR) 

350 ME = 1: RETURN 


400 FOR I = 1 TO NR 
410 PRINT "N@M DE LA VILLE ";1;" :";: INPUT V$(T) 


Un classique : 
le voyageur 






1on, 1l ne s'agit pas de vous infliger 
lune série TV sur la Sème dimension, 
mais de vous proposer une solution 
Ç à un vieux problème de récréation 


1 


\mathématique. 


Il s'agit de déterminer le meilleur itinéraire à 
parcourir entre plusieurs villes, afin de minimiser un 
facteur quelconque, par exemple : 


- le nombre de kilomètres ; 
- le temps du parcours total. 


Le modèle de Little perrnet d'obtenir un algorithme 
qui fournit une solution. Les seules contraintes sont : 


* il est interdit de passer deux fois dans la même 
ville ; 


+ la fonction d'évaluation doit être obligatoirement 
minimisée (il est ainsi impossible d'utiliser une 
fonction qu'il faudrait maximiser). 


Le programme LE VOYAGEUR, écrit en Applesoft 
donc facilement adaptable, permet de créer et de 
modifier à loisir les hypothèses d'un problème ; les 
solutions sont éditables sur imprimante (Epson 
RX80 mais vous n'aurez aucune difficulté à convertir 
les quelques lignes). En prime, le programme vous 
offre un tutorial pour vous familiariser avec les 


concepts manipulés. 





420 NEXT I 

430 HOME 

440 FOR I = 1 TO NR 
450 FOR J = 1 TO NR 


460 IF I = J THEN CfI,J}) = IE + 30: GOTO 500 

470 PRINT "TRAJET DE ":VS${(1});" À ";:V${(J);" "3: INP 
UT VTS 

480 C(I,J) = VAL (VT$) 

490 IF CfI,J) = 0 THEN INVERSE 
>0 S.V.P.": NORMAL 

500 D{I,Jd) = C{I,J) 

510 NEXT J 

520 PRINT 

530 NEXT I 

SAOLREM === EEE SEE ESS Se 


: PRINT "UN NOMBRE 
: GOTO 470 


550 REM MODELE DE LITTLE 
560 REM -------""" 
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59 


un 





570 GOSUB 1090: REM * MODIF RESOLUTION * 


580 M = 1E + 30:K = O:RO = O:R1 = 0:R2 = 0:CS = 0:0 
UI = 0 

590 K = K + 1 

600 GOSUB 850: REM * SUBSTITUTION * 

610 HOT = OUI + CS 

620 C{RI, 0) = 1:C({0,.R2) = l:C({R2,R1) = 1E + 30 

630 RO = O:X{K}) = R1:Y(K) = R2 

640 GOSUH 1090: REM #* MODIF RESOLUTION * 

650 OUT = OUI + RO 

660 1F OUI > M AND HOT > M THEN FIN = 1: GOTO 750 

670 IF HOT < M AND OUI < = HOT THEN M = HOT 

680 IF OUI < = HOT THEN 750 

690 IF OUI < M THEN M = OUI 

700 FOR 1 = O0 TO NR 

710 FOR J = O TO NR:C{I,J) = M{I,J): NEXT J 

720 NEXT 1 

730 C{X{K),Y(K)) = 1E + 30:OUj = HOT 

740  GOSUB 1090: REM * MODIF RÉSOLUTION * 

750 IFK < > NR - I AND FIN < > 1 THEN 590 

760 IF FIN = 1 THEN 830 

770 K = K + 1 

780 FOR I! = 1 TO NR 

190 FOR J = 1 TO NR 

800 IF C(I,0) = O0 AND C(0,J) = O THEN X{K) = I:Y(K 
J = J:I1 = NR:J = NR 

810 NEXT J 

820 NEXT I 

830 GOTO 1470 

840 REM 

850 REM ----- ne 

860 REM SUBSTITUTION 

870 REM ---------- 

880 CS = 1E - 30 

890 FOR 1 = 1 TO NR 

900 IF Cf1,0) = 1 THEN 1040 

910 FOR J = 1 TO NR 

920 IF C(0,J) = 1 OR C{1,J) < > O OR CII,J) > 1E 
+ 30 THEN 1030 

930 M1 = 1E + 30 

940 FOR Ji = 1 TO NR 

950 IF Cf0,J1) < > 1 AND C{I,JIi) < M1 AND J< > 
J1 THEN M1 = C{I,J1) 

960 NEXT J1 

970 M2 = 1E + 30 

980 FOR 11 = 1 TO NR 

990 IF C{II,0) < > 1 AND CfII,J) < M2 AND I1 < > 
1 THEN M2 = C{(I1,J) 

1000 NEXT Il 

1010 MIN = M1 + M2 

1020 IF MIN > CS THEN CS = MIN:R1 = I:R2 = J 

1030 NEXT J 

1040 NEXT I 

1050 FOR I = O TO NR 

1060 FOR J = 0 TO NR:Mf{I,J) = C(I,J): NEXT J 

1070 NEXT I 

1080 RETURN 

1090 REM ---------T-- 


1100 REM MOBIF RESOLUTION 


1210 REM ------------- 
1120 FOR 1 = 1 TONR 

1130 IF C(I,0) = 1 THEN 1250 

1140 MIN = IE + 30 


1150 FOR J = 1 TO NR 


1160 IF C(0,J) = 1 THEN 1190 

1170 IF C(:,J) = O0 THEN F = I:J = NR: GOTO 1190 

1180 YF C(7,J) < = (MIN) THEN MIN = C{I,J) 

1190 NEXT J 

1200 IF F = 1 THEN F = 0: GOTO 1250 

1210 FOR J = 1 TO NR 

1220 IF Cf0,J) = O THEN C{I,J) = C(I,J) - MIN 

1230 NEXT J 

1240 RO = RO + MIN 

1250 NEXT I 

1260 FOR J = 1 TO NR 

1270 IF C(0,J) = 1 THEN 1390 

1280 MIN = 1E + 30 

1290 FOR I = 1 TO NR 

1300 IF C{I1,0) = 1 THEN 1330 

1310 IF C(I,J) = O THEN F = 1:1 = NR: GOTO 1330 

1320 IF C(I,J) < (MIN) THEN MIN = C{I,J) 

1330 NEXT à 

1340 IF F = 1 THEN F = 0: GOTO 1390 

1350 FOR I = 1 TO NR 

1360 IF C{1,0) = O THEN C{I,J) = C{i,J) - MIN 

1370 NEXT 1 

1380 RO = RO + MIN 

1390 NEXT J 

1400 REM --------""""""" 

1410 FOR I = 1 TO NR 

1420 FOR J = O TO NR 

1430 IF C{:,0) = 1 AND Cf0,J) = 1 THEN C{J,I) = 1E 
+ 30 

1440 NEXT J 

1450 NEXT I 

1460 RETURN 

1470 REM -------"" 2 


1480 REM AFFICHAGE RESULTAT 

1490 REM 

1500 GOSUB 2410 

1510 VTAB 23: PRINT : INPUT "VOULEZ-VOUS SAUVEGARD 
ER CETTE ANALYSE ?";RES 


1520 IF LEFTS (RE$,1) = “O" THEN GOSUB 1910 
1530 REM 
1540 PRINT :R$ = "‘": INPUT "VOULEZ-VOUS IMPRIMER C 


ES RESULTATS ?";RS$ 
1550 IF LEFTS$S (R$,1) = 
1560 POKE 34,0: RUN 
HOVONCREM SSSR SET SSSSSTET 
1580 
1590 
1600 
1610 
1620 


"O" THEN GOSUB 2710 


HOME 

INPUT "MODIFIER LA VILLE DE DEPART ? "RES 

IF  LEFTS {RES,1) < > "“O" THEN PRINT : GOTO 

1650 

1630 RES = INVERSE : PRINT VDS; " ": 
PUT "NOUVEAU NOM f ENTER=OK }) 


run. 


NORMAL : 
? "RES 


IN 


1640 IF LEN (RES) > O THEN VDS = RE$ 

1650 INPUT “MODIFIER LE NOM D'UNE VILLE ? ";RES 

1660 IF LEFTS$ (RES$,1) < > "O" THEN PRINT : GOTO 
1710 

1670 FOR I = 1 TO NR 

1680 RE$ = "": INVERSE : PRINT VS(I);" ": NORMAL : 
INPUT "NOUVEAU NOM ( ENTER=OK ) ? ";RES 

1690 IF LEN (RE$Sj > O THEN VS{(I) = RES 

1700 PRINT : NEXT I 

1710 FOR I = 1 TO NR 

1720 IF VDS = VS(I) THEN 1760 

1730 ONEXT I 
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1740 PRINT : FLASH : 
UE": NORMAL 

1750 FORT = 1 TO 1500: NEXT : 

1760 

1770 


PRINT "VILLE DE DEPART INCONN 


GOTO 1600 
INPUT "MODIFIER UN TRAJET ? ";RES 
IF LEFT$S (RES,1) < > "“O* THEN PRINT : 
1830 
INPUT "MODIFICATION DU TRAJET NUMERO ? ":IS$:I 
= VAL (I$) 
INPUT " 
= VAL (9$) 
IF I > NROR J > NROR I = J THEN 
INT : FLASH : PRINT " ERREUR "SE 
: FOR T = 1 TO 1000: INEXT : GOTO 1560 
PRINT : PRINT "VALEUR ACTUELLE :";:D1{1,J) 
INPUT "NOUVELLE VALEUR :";D(I,J) 
PRINT : INPUT ‘UN AUTRE MODIFICATION ?';RES 
1840 IF LEFTS (RE$S,1) = "OC" THEN 1590 
1850 PRINT : FIASH : PRINT TAB( 5); "CALCUL EN COU 
RS ‘“: NORMAL 
1860 RETURN 
1070 REMS===5E= SSSR S=-S<SRSÉsRSSS 
1880 POKE 36,0: VTAB 23: PRINT "APPUYEZ SUR UNE TO 
UCHE POUR LA SUITE.": GET C$ 
1890 RETURN 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080" VREM ESF Sr ST TRS SES ESS SES 
2090 VTAB 23: INPUT "NOM DE L'ANALYSE (? POUR LE C 
ATALOGUE) ?";NES 
2100 IF NE$ = "?" OR LEN (NES) = O THEN 
70: HOME : GOTO 2090 
2110 HOME : INVERSE : POKE 36,8: VTAB 23: 
NALYSE FICHIER ..."/NES: NORMAL 
2120 PRINT 
2130 PRINT D$;"OPEN";:NES 
2140 PRINT D$; "READ":NES 
2150 INPUT NR: INPUT VDS 
2160 GOSUB 330 
2170 FOR I = 1 TO NR 
2180 INPUT VS$fI) 
2190 NEXT ! 
2200 FORT 1 TO NR 
2210 FOR J = 1 TO NR 
2220 INPUT D{I,J} 


GOTO 
1780 


1790 AU TRAJET NUMERO ? ";J$:J 


1800 PRINT : PR 
NORMAL 


1810 
1820 
1830 


REM == —- 
PRINT 

PRINT DS; "OPEN":NES 

PRINT DS: "WRITE":NES 

PRINT NR: PRINT VDS 

FOR I = 1 TO NR 

PRINT VS{I) 

NEXT I 

FOR I = 1 TO NR 

FOR J = 1 TO NR 

PRINT D(I,J) 

NEXT J,I 

PRINT D$; "CLOSE" 

RETURN 

REM ==" 


GOSUB 23 


PRINT "A 


UR FICHIER": PRINT DS; "DELETE'";NES: GOSUB 2370: 
GOTO 2320 


2310 PRINT "ERREUR": SPEED= 255 

2320 FOR IT = 1 TO 1000: NEXT 

2330 POKE 34,0: RUN 

2340 REM ------- 

2350 REM LECTURE CATALOGUE 

2360 REM ---------" 

2370 PRINT DS:"CATALOG": PRINT : PRINT "APPUYER SU 
R UNE TOUCHE": GET R$: RETURN 

2380 REM ---------- 

2390 REM SP RESULTATS 

2400 REM === 

2410 HOME 

2420 PRINT : PRINT 

2430 PRINT ‘'rrrrnrxnaxr4nae pt Rae A tt 

2440 PRINT ‘““ ARCS DE L'ARBORESCENCE *" 

2450 PRINT MRrRRR4MNARANXR AURUA AREA AN 

2460 PRINT : PRINT 


2470 NL = 0 


2480 FOR I = 1 TOK 

2490 PRINT "DÉPART:"; LEFTS (VS(X{I1)),11);: POKE 3 
6,20: PRINT "ARRIVEE:";: LEFTS (VS(Y(I)),11J-NL 
= NL + 1 

2500 NEXT 1 

2510 IF FIN = O0 THEN 2540 

2520 PRINT : PRINT "LE CIRCUIT ME PEUT ETRE DETERM 
INE" 

2530 PRINT " PLUS AVANT SANS ERREUR": RETURN 

2540 IF LEFTS (R$,1) < > "O" THEN GOSUB 1880 

2550 HOME : PRINT : PRINT 

2560 PRINT "LE PLUS COURT CHEMIN EST:" 

2570 PRINT "========-----2memszsszs" 

2580 IFR< > 2 ANDR < > 3 AND LEFTS fRS,1) < 
> "O" THEN INPUT "VILLE DE DEPART ? ";: VDS 

2590 PRINT : PRINT "DEPART : FPS PRINT 

2600 FOR I = 1 TO NR 

2610 FOR J = 1 TO NR 

2620 IF VDS = VS{(X{(J)} THEN PRINT VS(X(J)):VDS = 
V$(Y(L))]: GOTO 2660 

2630 NEXT J 

2640 PRINT : FLASH : PRINT "VILLE INCONNUE": NORMA 
L 

2650 FOR T = 1 TO 1500: NEXT : GOTO 2550 

2660 NEXT I 

2670 PRINT VDS 

2680 PRINT : PRINT "ARRIVEE" 

2690 RETURN 

2700 REM ------- 

2710 REM LISTING IMPRIMANTE 

2720 REM --------------—-—- 

2730 PRINT D$;:"PRE3" 

2740 PRINT : PRINT D$:"PR£I" 

2750 PRINT CHRS$S (27); CHRS (64): REM ŒINIT IMPRIM 


ANTE 

2760 PRINT TS$; 

2770 PRINT : PRINT CHR$ (27); CHR$S (14);: 
OS CARACTERES 


REM GR 





2230 C{I,JJe= DUT; JT) 2780 PRINT "LE VOYAGEUR:ANALYSE DU FICHIER “;:NES; 
2240 NEXT J,I 2790 REM PRINT CHRS({15): REM 132 COLONNES 

2250 PRINT DS; "CLOSE" 2800 PRINT CHRS 120): REM 80 COLONNES 

2260 RETURN 2810 PRINT TS: PRINT : PRINT 

2270 REM ----------- 2820 PRINT "rrrrrrramæ##e 

2280 REM TRAITEMENT ERREUR -------------- 2830 PRINT "*LES VILLES*" 

2290 REM ----------------------------2—- 2840 PRINT "‘#rratrtaanr 

2300 IF PEEK (222) = 5 THEN VTAB 10: PRINT "ERRE 2850 FOR Ï = I TO NR 
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2860 PRINT I;" = "/VS(I) 

2870 NEXT 1 

2880 PRINT : PRINT 

2890 PRINT MRR#AUMRHUMAAAAARUAARAAN 

2900 PRINT "*MAaTRICE DES TRAJETS*" 

2910 PRINT ELLES LISE SSLASTE LS 

2920 PRINT : PRINT 

AIIOGN PRINT. FRET: 

2940 FOR 1 = 1 TO NR 

LOU <PORE: F6 2 0 HOT CPRINT TS 

2960 NEXT 

2970 PRINT : PRINT LEFTS (T$S,NR * 5 + 4) 

2980 FOR I = 1 TO NR 

2.990: PRINT ES" rs 

3000 FOR J = 1 TO NR 

J010! POKRE 36,9 #5: IF I = 4 TREN PRINT "097: GOT 
© 3030 

3020 PRINT DfI,J): 

3030 NEXT J 

3040 PRINT : NEXT I 

3050 PRINT EEFTS {TS,;NR *-5' 44) 

3060 GOSUB 2420 

3070 PRINT : PRINT B$;"PRE3": PRINT CHRS$S (21): PR 
INT : POKE 34,0: RUN 

3080 REM ---------- 

3090 REM MODE D'EMPLOI 

3100 REM ------------- 

3110 HOME : SPEED= 110 

3120 PRINT "Ce programme à été développé à partir 

3130 PRINT "du modéle de LITTLE appelé également" 

3140 PRINT "modéle du voyageur de commerce." 

3150 PRINT "Yl1 permet de déterminer ie trajet" 

3160 PRINT "optimal à suivre, lorsque sur un graph 
e" 

3170 PRINT “on veut passer par tous les repéres un 
e" 

3180 PRINT "seule fois et une seule." 


3190 PRINT 
u" 


3200 PRINT 
3210 PRINT 
3220 PRINT 
3230 PRINT 
3240 PRINT 
3250 PRINT 
3260 PRINT 
3270 PRINT 
3280 PRINT 
3290 PRINT 
3300 PRINT 
3310 PRINT 
3320 PRINT 
3330 PRINT 
3340 PRINT 
3350 PRINT 


" 


3360 PRINT 
e" 
3370 


3380 PRINT 

3390 PRINT 
e" 

3400 PRINT 


PRINT 


3410 PRINT : 


3420 PRINT 
3430 PRINT 


"Ce modéle correspond donc éxactement à 


"oroblème du voyageur de commerce qui” 
“doit visiter plusieurs villes en 
“minimisant par exemple la distance à” 
"parcourir." 


“Pour poser le problème, ii faut " 
"déterminer la matrice des couts du 
"voyage de ville à ville.Ces couts" 
“peuvent etre exprimés en francs, en" 
"en litres d'essence, ou en kilométres" 
"Il peuvent etre différents à l'aller” 
"et au retour.": PRINT 

: PRINT "EXEMPLE:" 

"Un voyageur désire se rendre une fois 
"et un seule dans 5 villes différentes. 


"Le but est de déterminer la tournée qu 
"le voyageur doit réaliser pour parcou- 
“-rir le moins de kilométres possibles 
"Il faut tout d'abord établir la matric 


"de saisie:" 
PRINT ETRAJET: IS *2.0-3N «4, LS 


a & "0. 2135-1919 
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3440 PRINT " 23:60: 1:46: 3 
242" 

3450 PRINT " 3:.:25394"10; 1.2 
22317 

3460 PRINT " 4,2 40»15%22;.0 
PE 

3470 PRINT " 9: 13:2°243;:9%2 
9.107 


3480 PRINT 
3490 PRINT "Ce tableau indique 
que le nombre de" 
PRINT "kilometres séparan 
É la ville 1 de la” 
PRINT "ville 2 est de 21 
à l'allée, et de 36” 
PRINT "au retour etc. 
PRINT : PRINT : PRINT "Ce 
programme à été inspiré 
par le livre" 
3540 PRINT " de JEAN PIERRE BL 
ANGER édité aux” 
3550 PRINT "éditions P.S.I. MO 
DELE PRATIQUE DE" 


3500 


3510 


3520 
3530 


3560 PRINT "DECISION.": PRINT 
: PRINT 

3570 SPEED= 255: GOSUB 1880 

3580 POKE 34,0: GOTO 90 





Les relures Pom s 


GO.00 F TTC Franco - Bon de commande page 74 





L) 
PARIS 
PARIS 
MEAUX 

SEZANNE 
TROYES 
MELUN 
1E+30 
44 
139 
107 
54 

47 
1£+30 
53 
134 

56 
139 

59 
1E+30 
64 

33 
112 
139 
68 
1E+30 
128 
56 

54 

s0 
122 
1E+30 


Fichier TEXT de démonstration 
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Nicolas Marti 


a présentation de 
Turbo-Pascal, de 
4 Nicolas Montsarrat 
” dans Pom’s 23, 
avait donné un 
avant-goût de l'utilisation du 
graphisme sous ce langage. 
Le programme GRAPH.PAS 
illustrait une solution au 
principal reproche adressé à 
Turbo-Pascal : l'absence de 
graphisme. 
Nous avons repris à notre compte 
l'objectif initial, c'est-à-dire 
disposer d'un ensemble de 
procédures Pascal dédiées au 
graphisme HGR, en proposant 
d'exploiter la ROM du Basic 
Applesoft, écrite bien sûr en 
6502, sous le CP/M Z-80 du 
Turbo-Pascal. 


Pari gagné ! La procédure HLINE 
obtenue est beaucoup plus rapide. 
De plus, nous avons inclus 
d'autres procédures telles que 
HCOLOR, HPOS, HPLOT TO. 





nous 


Utilisation 


Le fichier DrAG. PAS est un fichier 
source Turbo-Pascal qui contient 
la définition de l'ensemble des 
procédures graphiques. 
Rappelons qu'il n'est pas 
possible de créer des 
LIBRARIES ou des UNITS en 
Turbo-Pascal ; il n'est donc 
possible que de créer des fichiers 
inclus appelés au moment de la 
compilation. 


Le source ESSAI.PAS est un petit 
programme de démonstration qui, 
en utilisant les définitions de 
DIAG.PAS, obtient la même 


ñ € Michel de Crémoux 


(xi,yl,x2,y2) 
trace une droite entre fes deux 
points indiqués 


animation graphique que le 
programme GRAPH, PAS de Pom’s 
24 


ESSAI.PAS n'est, bien sûr, 
fourni qu'à titre d'illustration de 
la méthode. Pour le compiler : 


transférer les fichiers DIAG. PAS 
et ESSAI. PAS de la disquette 
Pom’s vers une disquette 
CP/M à l'aide de Universal 
File Conversion (sinon, à vos 
claviers!) ; 

charger Turbo-Pascal (désolé, 
vous ne le trouverez pas sur la 
disquette Pom's...) ; 

dans le menu des Options du 
compilateur, demandez une 
compilation vers un fichier 
. CoM et à partir de l'adresse 
S000 (sinon...). 


La compilation de ESsAI.PAS, 
utilisant DIAG.PAS, produira un 
fichier ESSAI.COM directement 
utilisable. Les habitués du Pascal 
Apple apprécieront certainement 
la rapidité de la compilation. 


Procédures 
graphiques 


Voici la liste des procédures 
définies par DIAG. PAS : 


Hge passe en mode graphique en 
effaçant la page graphique 

Hg idem mais sans effacer 

Hplot (x,y) idem qu'en 
Applesoft (x<280, y<192) 

Hpos (x,y) place le curseur 


sur le point indiqué sans rien 
tracer 


HplotTo (x,y}) trace du 
point courant vers le point 
indiqué 
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Hline 


HgrInitCercle procédure 
d'initialisation du tracé de 
cercle ; à appeler obliga- 
toirement, mais une seule fois 
par programme 


Cercle (cx,cy,r) trace 
un cercle de centre cx,cy et de 
rayon r 


Hcolor (couleur) défi- 
nit la couleur: noir, blanc, 
ocre, bleu, vert ou rouge 


BackGround (couleur) 
définit la couleur du fond de 
l'écran 


Touche attente d'une touche 
clavier pour continuer le 
programme 


Reponse (rep) retourne le 
code ASCII de la touche 
frappée (rep est de type 
CHAR) 


Text retourne au mode texte. 
Ne pasutiliser Read1n 


Texte idem mais efface l'écran 
et autorise l'emploi de 
Readin. 


Tous les paramètres numériques 
de ces procédures sont des 
entiers. 


Pendant l'activation du mode 
graphique, ïil est interdit 
d'effectuer des entrées/sorties (en 
raison de l'architecture mémoire 
de CP/M}), hormis Read 
(Kbd, Variable) qui ne renvoie 
pas d'écho à l'écran ; on peut 
également exécuter un Readin 
juste avant de revenir au mode 
texte par Texte. 








3 | 
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Source DIAG.PAS HploïTo (x2ÿ2); 


End ; 
(Turbo-Pascal) 
Procedure HginitCercle ; 
| Type Var 
i : Integer ; 
Couleur = { Noir,Ocre,Bleu,Blanc Vert, Rouge ) ; Begin 
Fori := 0 t 90 do 
Var Begin 
Cosinus [i]:=Cos(ÿ360*3.14159) ; 
Cosinus,Sinus : Array [ 0.90 ] of Real ; Sinus {i]:= Sin (ÿ360°3.14159) ; 
End; 
Procedure Jsr { AdhAd! : Byte ) ; End; 
Begin 
Men {$F3D0 ]:2 Adi; { Poids faible sous-programme) Procedure Cercle { cx,cy : Integer) ; 
Mem[$F3D1]:=Ach; { Poids fort “} Var 
Inbine  ($2ASDESF3/  { LD HL, $F3DE) n, Tela,x,y : Integer ; 
$77 ); [ LD(HL), A} 
End, Procedure Print ; 
Begh 
Procedure Hge ; iT{{x>-1) and (x<280) and {ÿ>-1) and (y<192)) then Hplot { x.y ) ; 
Begn End; 
Mem[$E000 }:= 0; 
Mem [$F0E6 ] := $40 ; Procedure Ex { Var x.y : Integer) ; 
Jsr ( $F3$F2); { Efface l'ecran du moniteur} Var 
Mem { $E055 ]:= 0 ; i: Integer; 
Mem([$E052 ]:=0; Begn 
Mem/$E057 ]:=0 ; Ty: 
Mem { $E050 ]'= 0; Y:=Xx-cx4+ cy; 
End; X:=i-CY+CX; 
End; 
Procedure Hg ; 


Procedure Exm ( Var x,y : Integer ) ; 


Begn 
Mem [$FOE6 ] :=$40 ; Var 


Mem{$E000] = 0; 


i: Integer; 
Mem [ $E05$ }:= 0; | 
Mem [ $E052 ] := 0; IE; 
Mem[$E057]:=0; Y:=Cx-X +0; 
Mem[$E050 J:=0 ; X!=CY-i+CX; 
Erd; . End; 
Procedure Hplot { x.y : Integer) ; 

Begh nel; 
Mem/[{$F045 ]:=y; Case rof 
Mem{$F047]:-= x Div 256; 1.5 :n:=20; 
Mem[ $F046 }:= x Mod 256 ; 5.10:n:=10; 
Jsr { $F4,857 ) ; { Hplot du basic ) 10.18:n.z 6; 

End; 19.28 :n:= 3; 

29.45 :n:= 2; 
Procedure Hpos (x,y : Integer) ; End; 
É Teta:=0; 
Mem{ $F045 ]:=y ; Repeat 
Mem {$F047 ]:= x div 256 ; x := Trunc { r * Cosinus [teta + cx); 
Mem [ $F046 ]:= x mod256 ; y := Trunc (r° Sinus [teta]+cy); 
Jsr ( $F4,$11 ) ; Print ; 
End; Exm(xy); 
Print ; 
Procedure HplotT o {x,y : Integer) ; x:=2"CX-x; 

Begn Print ; 

Mem [{ $F045 ]:= x Mod 256 ; Ex{xy ); 
Mem [ $F046 } := x Div 256 ; Print; 
Mem[$F047]:=y ; y:=2°cy-y; 
Jsr( $F5,$3A ) ; Print ; 

Jst $F5,$CB ) ; Exm{x,y ); 

End; Print ; 

X:=2°Cx-x;, 
Procedure Hline (x1,y1.x2,y2 : Integer) ; Print ; 

Beghn Ex(x,y ); 

Hpos {x1,y1 ); Print ; 
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Teta := Teta+n; ( La liste complete est donnee dans article. H! ne faut pas oublier) 
} 











Unbi Teta >= 90; {de le compiler avec une adresse de de but de 5000. 
Program Essai ; 
Procedure Hcolor (Cou : Couleur) ; 
Var Var 
Valeur : Byte; ra:Red; 
Begin ixy : Integer ; 
Case Coulof Car: Char, 
Noir : Valeur := $00 ; Caractere : Char; 
Ocre: Valeur := $2A ; ANS A ; : k 
Bleu : Valeur: = $55; (Le fichier inclus Diag.Pas contient les instructions graphiques. ) 
Blanc: Valeur := $7F : {l'est possible de linclure directement au programme en le lisant } 
Ver : Valeur := $AA : { comme unbloc. Dans ce cas, la ligne ci-dessous doit disparaitre. } 
Rouge: Valeur:= $DS ; (SIDIAG.PAS ) 
End; 
Mem/{ $F0E 4]: Valaw; {Couleur de trace} , 
CirScr ; 
Procedure BackGround (Coul : Couleur) ; Wiiteln ( Texte avant passage en mode graphique") ; 
Var Writein ( Veuillez patienter’) ; 
Valeur : Byte; , L _ NE Me 
Begin { Hg/nitCercie n'est necessaire que si l'on a l'intention d'liser la } 
Case Coulof { la procedure Cercle, dans ce cas ele est indispensable. Son } 
Noir : Valeur := $00 : {execution prend environ une dizaine de secondes, et permet un  } 
Ocre : Valeur : 82 : [gain de temps dans le trace des cercles. Elle est necessaire. } 
Bleu: Valeur:= $55 ; HginiCercie ; 
Vert: Le # a {Hge fait passer en mode graphique, avec effacement } 
Rouge: Valeur: = 505 ; fe; 
End . 
: " : { Hcolor selectionne la couleur. } 
one) de ES Cr ce {Les couleurs sont : Blanc,Noir,Ocre,Bleu, Vert et Rouge. } 
: ; Hcolor ( Bla nc ); 
Procedure Touche: Es; 
Var : 
Rep : Char; Repeat 
n 
: { Cercle tace un cercle de centre et de rayon donne. } 
a Cercle (8"i+ 10,5"i+10,9); 
) -Ch à i=i41 .. 
éa Reponse ( Var Rep : Char); Une 30 : 
ce ë RMGRERU r:=0.0; 
; a; 
Procedure Text; ; 
Begin Fe (Hpos positionne le curseur graphique sur l'ecran graphique. } 
Mem{$E001 ]:=0 ; Hpos(140,95); 
dsr ($F3,$99) ; 
End: Rapeat 
x := Tiunc ( 140+r”Cos(a)); 
Procedure Texte ; ÿ:= Tnunc ( 95+r"Sin(a)); 


Begn 
Mem{$E001]:=0; 






{ HplotT o trace une droite entre la position du curseur et la }, 
sr ( $F3,$99 ) ; { position ndiquee. } 
CirScr ; HplotTo (x,y] ; 

End, 
F'=1+15; 
a:=a +#1553; 
Unël r>95 ; 

Source ESSAI.PAS | 
s { Text permet de revenir en mode texte sans effacer la } 
( Pr ogramme de démonstration { page texte. Attention, si l'on emploie Text, il ne faut pas } 
Turbo-Pascal) {emptoyer de Readin avant Text pour attendre qu'une touche } 
{ soit frappes au clavier pour continuer, mais Reponse ou Touche } 
{Ce programme contient un exemple d'utilisation de certaines  ) { qui permettent d'attendre qu'une touche du clavier soit frappee } 


{procedures graphiques. Elles ne sont pas toutes utilisees ici.  } {pour continuer l'execution 4 programme. 
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{ Leur utilisation est obligatoire si l'on veut faire une pause. } 


Reponse ( Caractere) ; 
Text; 


Wniïteln ('Le texte a bien ete conserve par Text') ; 


Wiiteln ; 
Writein ({ Touche tapee : ‘Caractere ) ; 


Writeln ; 


Writeln { Tapez une touche pour quitter le programme) ; 
Touche ; 


F] 


ClrScr ; 
End. 











Impression sur graphisme 
et mise en page sur 
Macintosh, par Andréas 
Pfeiffer, Cédic/Nathan. 


Bon ouvrage qui représente un 
renouvellement important par 
rapport à la précédente édition 
(Applications graphiques pour 
Macintosh, 1985). 

On garde les grands classiques : 
en dessin, MacPaint et ses 
satellites ClickArt et les planches 
d'images, MacDraft, MacSpace, 
Chart, SlideShow. Dans la mise 
en pages, ReadySetGo, 
MacEditeur et PageMaker. Et 
aussi MacTablet, MacVision et 
ThunderScan. 

On trouve beaucoup de 
nouveautés comme : en dessin, 
ComicWorks, Fontastic, 
FullPaint, MacBillBoard, 
MacDraw, StatWorks (il manque 
toutefois les Criket). 
Particulièrement en dessin 3D, 
SpaceEdit, EZDraft, Mac3D, 
MacArchitrion. Et aussi Excel, 
JustText... Il manque en 
revanche 4M£ dimension, ainsi 
que les nouveaux traitements de 
textes Writer + et Word 3. 


La mise en page est bonne, 
l'auteur ayant conservé 
l'astucieuse formule consistant à 
mettre en relief ses remarques 
importantes sous forme de 
fac-similés de calepins. 


En revanche, on peut lui 
reprocher, comme à son 
prédécesseur, d'être positionné 
un peu en porte à faux 
insuffisant, évidemment, pour 
servir de mode d'emploi résumé 
et, trop classique, ne laissant 
guère de place à des trucs ou 
astuces d'utilisation. 


La programmation en Basic 
avec ProDOS, InterEditions, 
265 pages. Traduit de l'anglais. 


Il s'agit d'un livre fort bien 
présenté (style manuel de 
l'ImageWriter I, manuels de 
référence) dont la reliure spirale 
facilite la consultation. 


L'ensemble des ordres ProDOS 
accessibles en Basic est abordé de 
façon didactique à l'aide de 
nombreux exemples. Le livre vise 
en priorité le nouvel acquéreur 
d'un Apple // démuni de 
documentation. 


L'index bien fait permet de 
retrouver facilement la syntaxe 
oubliée, la signification de 
l'erreur 20 ou les adresses 
mémoires affectés par un 
IN£1000 par exemple. 


L'ouvrage est accompagné d'une 
disquette comprenant de 
nombreux exemples de 
programmes, mais également de 
l'utilitaire APA qui à lui seul 
justifierait l'achat. APA donne de 
nouvelles fonctions à l'Apple //: 
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- numérotation automatique des 
lignes en Basic ; 

- renumérotatiOn ; 

- fusion de programmes ; 

- suppression des REMS ; 

- Jistage des variable ; 

- conversions décimal/hexa.…. 





Excel, La pratique, par Mary 
Campbell, InterEÉditions, 512 
pages. Traduit de l'anglais. 


Voici un livre comme savent le 
faire les américains : clair et bien 
illustré, mais écrit pour des 
lecteurs au ras des pâquerettes ; la 
traduction est bien faite, ce qui est 
assez rare pour être noté. 


Nous avons trouvé dans cet 
ouvrage une lacune de première 
importance : il n'y a pas de copie 
d'écran avec les formules. 

Cela ne nous semble pas très 
sérieux de former les gens à 
l'utilisation d'un tableur sans que 
les formules ne soient 
fréquemment présentées en 
regard des feuilles de calcul. 


Par ailleurs, l'auteur ne semble 
avoir pas remarqué qu'il y avait 
des bogues dans Excel et, par 
conséquent, n'indique pas la 
façon de les contourmer. 


En conclusion, nous conseillons 


plutôt le recours à d'autres 
ouvrages d'initiation à Excel. 
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Le Pham Hiep 


force. de: faire 
“joujou” avec la 
souris, NOUS avons 
Â trouvé qu'il pour- 
rait être intéressant d'écrire 
un petit programme 
“portable” et modulaire 
pour exploiter la souplesse 
de la souris. Ainsi, ce 
programme vous permettra 
de créer des menus 
déroulants d'une manière 
simple, et sera à même de 
donner un nouveau ‘look’ à 
vos programmes. 





LEMOUSE a été écrit pour les 
Apple //c et utilise les instructions 
du 65C62, ainsi que les 
caractères de la souris. 


Fonctionnement 
du programme 


Ce programme donne un exemple 
possible du travail en Basic, avec 
les interruptions et dans un envi- 
ronnement ProDOS. Une fois 
cette routine lancée, l'utilisateur 
du programme Basic dispose 
d'une ligne de commandes acces- 
sible avec la souris. 


Le programme est quasiment 
transparent et, si par ‘hasard’ 
vous perdiez l'interruption de la 
souris (absence du curseur), vous 
pourriez toujours le reconnecter 
en passant par “&”. Ce 
programme est très simple, nous 
pouvons même envisager de 
placer la partie principale dans le 
Basic puis les tables de menus... 
en RAM et de créer une nouvelle 
commande (MOUSE par exem- 
ple). 
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LeMouse : 
SOUTIS € MeENUS 


Pour vous donner une idée de 
“l'ambiance” créée , vous trouve- 
rez ici une série de menus dont 
seules les fonctions de ProDOS et 
MODE sont disponibles (le reste, 
vous pouvez le compléter suivant 
votre machine... il suffit d'insérer 
votre routine à l'emplacement 
FnMENUx prévu). 


Par le menu ProDOS : vous dis- 
posez de : 


+ CATALOG, pour faire un 
catalogue nonnal ; 

+ EXECUTE permet d'exécuter 
le programme dont le nom est 
WORKFILE ; 

° CHARGE, charge en mé- 
moire le programme Basic dont 
le nomest WORKFILE ; 

+ SAUVE sauvegarde sur dis- 
quette le programme Basic en 
mémoire sous le nom 
WORFILE. 


Après ‘Execute’ et ‘Charge’, 
ProDOS déconnecte la souris ; 
vous pouvez la reconnecter en 
passant par“ &” 


Par le menu MODE : vous accè- 

dez à : 

+ VTBL ON (vertical blan- 
king), active les interruptions 
suivant le rafraîchissement de 
l'écran ; ce mode est ‘dyna- 
mique’ et permet d'avoir une 
gestion souple et agréable de la 
souris ; 

° VTBL OFF, l'interruption ne 
vient que si la souris a été dé- 
placée. Pour voir la différence 
avec le premier mode, il vous 
suffit de mettre sous mode 
VTBL OFF, puis cliquer sur 
un menu et lâchez le bouton 
très doucement — si vous faites 
cela correctement, le menu 
devrait rester affiché - puis 
faites la même chose avec 
l'autre mode) ; 


° MOUSE OFF désactive le 
travail sous interruptions de la 
souris (vous pouvez revenir 
par Lo): 


Structure du 
programme 


104-112, les noms des menus 
disponibles à afficher sur la ligne 
@ de l'écran. 

117-270, les tables des menus, 
dont la structure est la suivante : 


+ les deux premiers octets desi- 
gnent la marge gauche et droite 
de la fenêtre déroulante ; 

+ le troisième octet représente le 
nombre de fonctions (n) du 
menu, plus deux ; 

+ le quatrième octet n'est pas 
utilisé. 

- les n couples d'octets suivants 
contiennent les adresses (fai- 
ble/fort) de la nième fonction 
de ce menu (FnMENUx) ; 

* viennent ensuite les caractères 
de la fenêtre à afficher (vérifiez 
que les caractères de chaque 
ligne, plus les ‘bornes’ gauche 
et droite, correspondent bien 
au nombre de caractères 
MDMENU-MGMENU+). 


117-270, les cinq tables. 
276-283, emplacement des 
fonctions du premier menu. 


286-334, les fonctions de 
ProDOS. 
335-389, emplacement des 


fonctions des menus suivants. 

392-469, les sous-programmes. 
471-567, gestion de la carte 88 
colonnes (cela assure la compati- 
bilitée entre les //c les //e 65CO02 ; 
les possesseurs de //c pourront 
remplacer READCAR par 
PICKY et AFFCAR par COUT). 
569-674, les sous-programmes. 
676-706, affiche le ‘marqueur’ 
à gauche de la fonction choisie (si 
vous voulez avoir des caractères 
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en inverse, il suffit de changer : 


CMP #'D' 

BEQ votre routine 
d'inversion des 
caractères 

JSR <normal> 


708-886, routine de traitement 
des différents cas (bouton et de 


910-944, partie principale du 
traitement des interruptions. 
947-980, sous-programmes 
pour initialiser la “fenêtre” de la 
souris. 

985-1042, programme princi- 
pal. 

1047-1069, faire un catalogue 
en passant par l'interpréteur 
Basic. 


Nous pensons que cet utilitaire, 
du fait de sa structure modulaire, 
est simple et assez ouvert ; il est 
donc envisageable d'écrire des 
“menus” afin de constituer une 
sorte de “super boîte à outils 
fonctionnant avec des menus 
déroulants. 


À vous de jouer maintenant. 





souris). 
888-906, sous-programmes de & 
calcul. ee 
41 JUMP DEBUT 
$ ; 
Programme ‘START.MOUSE : 
44 
45 
10 PRINT CHR$ (4);"-LEMOUSE3.0.C" 46 SENSI  DFB S03 sprécision de la souris 1-4 
20 HOME : PRINT “ ASSUREZ QUE VOTRE SOURI 47 BASLM DFB $00, $04 
" 48 BASLM2 DFB $00,$00 
S EST EN PLACE 49 MHORI DFB S$00,500 
60 PRINT : PRINT CHRS$S (4);"CATALOG" 50 MVERTI  DFB $00 
70 GET AS 51 MVERTIZ2 DFB $SO0 
52  OLDCAR DFB SAO 
53 
Programme ‘WORKFILE” fi rue or 00 
55 NFLAG2 DFB 00 
S6 MGMENU  DFB O0 
Il s'agit du programme sur lequel vous travaillez Re nat 
habituellement. I! peut être lancé de façon directe 59 
par le Startup. 60  XTAMP DFB 00 
61 
62 . 
D , 63 MAXMENU DFB 6 
Source ‘LEMOUSE 3.0 RE Re 
Assemblage par ProCODE 65 
66 * 
J * 67 MaXFER DFB 79,00 :ici 80 col 
2 * 68 MAXFEV DFB 23 set 24 ligne 
J Oh tntdnntétattatantt ta * 69 %* 
4 * * 70 CALCTAM DFB $00 
5 * LEMOUSE 3,0 * 71 TAMPON  DFB SAO 
6 #* par Le Pham HIEP 8/95 * 72 
7 * * 73 
D  OHAhhtaddaddt dd dt td dat à 74 
9 * 75 
10 76 INTMODE DFB S0OF smode d'interruption de la 
11 ORG  $7000 souris | 
12 IRO = S3FE 77 N DFB S04 sn du slot souris 
13 78 CN DFB $C4 ;CN 
14 COUT . SFDED 79 NO DFB $40 ;n0 
15 80 IRRRLLILELELELLILIEELLLELELLLE) 
16 BASL = 528 81 * 
17 82 TABMENU DA  MENUI :1à pome 
18 WNDTOP # $22 83 OFB ] 
2 84 DA MENU2 sProdos 
29 INVFLG = $32 85 DFB 5 
21 * 86 DA  MENU3 sbasic 
22 87 DFB 14 
23 88 DA  MENU4 smonitor 
24 89 DFB 22 
25 ETATM = S778 90 DA  MENUS simprimont 
26 ?Y# = S$5F8 91 DFB 32 
27 ?YL = S4E8 92 DA MENUS mode 
28 XxH = s578 93 DFB 44 
29 XL = S478 94 DA XXXX 
30 SETMOUSE = $12 95 DF8 51 
31 SERVEMOUSE = S13 ? g6 
32 READMOUSE = S14 97 * 
33 CLEARMOUSE = $15 98 » 
34 POSMOUSE = $16 99 #* ETC 
35 CLAMPMOUSE = S$17 100 #* 
36 HOMEMOUSE x $19 101 
37 INITMOUSE = $19 102  HRRRRRRRAR RAR ARR RAR AÈ RAR ARR RÉ R RE 
38 103 
7928 104 TITRE  HEX 41 
40 105 ASC " PRODOS" 
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106 ASC ” BASIC" 192 DA F4MENU4 

107 ASC " MONITOR" 193 P ro DOS 
108 ASC " IMPRIMANT" 194 ASC !_ * 

103 ASC " MODE" 195 ASC "List " / / 
110 DFB 00 196 ASC '2' E 
111 197 ASC 2? — 
112 198 ASC "Hexa Les 
113 199 ASC 'Z! 

114 ini ioiiiiiiioiiiniiiinnmenitnte 200 ASC L L 
115 201 ASC "Registre " 
116 202 ASC ‘'z! 

117 MENUI DFB 00,16 :MGMENU MDMENU 203 ASC !_! 

118 DF8 05,00 2 fctn+2 204 ASC ‘“Execute " 
119 205 ASC '2' 

128 DA FIMENU] 206 ASC  'LLLLLLLLLLL" 
121 DA F'2MENU] 207 

122 DA F'3MENUI 298 

123 209 

124 ASC "{c} Le PSsTAM 85" 210 1-2 em 
125 HEX SA 211 

126 HEX SF 212 

127 ASC ‘"Caicuiette Z 213 MENUS DFB 31,41 

128 HEX SA 214 DFB 08,00 

129 asc !_! 215 

130 ASC "Date e 216 DA F'IMENUS 

131 ASC ‘2! 217 DA F'2MENUS 

132 218 DA F3MENUS 

133 ASC  'LLLLLLILLLILELLL" 219 DA F4MENUS 

134 220 DA FSMENUS 

135 221 DA F6MENUS 

136 #*-=-.——- men 222 

137 223 ASC !_! 

138 224 ASC ‘Listing " 

139 MENU2 DFB 04,16 225 ASC "2 _' 

140 DFB 06,00 226 ASC "Text 40 " 

141 227 ASC ‘2 

142 DA FIMENUZ 228 ASC "Text 80 * 

143 DA F'2MENU2 229 ASC ‘2 _" 

144 DA F3MENU2 230 ASC "Hgr 1 # 

145 DA F4ENU2 231 ASC "2 _! 

146 232 ASC "Hgr 2 " 

147 HEX SF 233 ASC Fer 

148 ASC "Catalogue " 234 ASC “DHGR ” 

149 HEX SA 235 ASC 'z' 

150 236 

151 HEX SF 237 ASC  ?LLLLLLLLLL' 

152 ASC "Execute e 238 

153 HEX SA 239 

154 HEX SF 240 t-on 

155 ASC "Charge ” 241 

156 HEX SA 242 

157 BEX 5F 243 MENU6 DFB 43,57 

158 ASC "Sauve n" 294 DFB 05,00 

159 HEX SA 245 

160 246 DA FIMENU6 sprodos on 
161 ASC  'LLILLLLILELL" 247 DA F2MENUS sprodos off 
162 248 DA FIMENU6 

163 249 

164 t-mmmmmmmmmmmememmmm— 250 ASC  !_! 

165 251 ASC "VTBL OFF " 
166 252 ASC ‘"z! 

167 MENUS3 DFB 13,24 253 ASC !_! 

168 DFB 04,00 254 ASC ‘“VTBL ON e 
163 255 asc "ae" 

170 DA FIMENUS 256 ASC #0 

271 DA F2MENU3 257 ASC "MOUSE OFF ” 
172 258 ASC ‘2’ 

173 HEX SF 2593 

174 ASC "RENUMBER " 260 SC  'LLLLLLLLLLLLLL" 
175 HEX SA 261 

176 HEX SF 262 t--mmmmmmmmmmmmmmmmmmm——— 
177 ASC "SEARCH " 263 

178 HEX SA 264 MENU7 E ° 

179 265 

180 ASC "LLLLLLLLLLL' 266 LELELLLLELELLELELELELRLELELLELE) 
181 267 XXXX EQU * 

182 268 DFB $CC,SCS 

184 Puce mme 269 DFB 00 

184 270 DFB 00 

185 271 

196 MENU4 DFB 21,32 272 

197 DFB 06,00 273 
198 274 

199 DA FIMENU4 275 CÉEEEEEEEEEEELELLLELELLLLLE) 
190 DA F2MENU4 276 FIMENUI EQU #* 

191 DA  F3MENU4 277 RTS 

Û 
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301 
302 
305 
307 


308 
309 


315 
316 


318 
319 
320 
322 


324 


333 
334 


F2MENUI 


F3MENUI 


FIMENU2 


F2MENU2 


EXEC 


F3MENU2 


LOAD# 


F4MENU2 


SAVEW 


£'IMENU3 


F2MENU3 


FIMENU4 


F2MENU4 


F3MENU4 


F'4MENU4 


FIMENUS 


F2MENUS 


FIMENUS 


£QU 


CLI 
RTS 


EQU 
SEI 


STX 


#<CATALOG 
#>CATALOC 
COMMAND+1 
COMMAND+2 
CONT 


7-WORKFILE" 
8D00 


#<LOADW 
#>LOADW 
COMNMAN D+1 
COMMAND+2 
CONT 


"LOAD WORKFILE" 
8D00 


#CSAVEW 
#>SAVEW 
COMMAND +1 
COIMAND+2 
CONT 


"SAVE WORKFILE" 
$8D,00 


* 


364 
365 
366 
367 
368 
369 
370 
371 

372 
II 
374 
375 
376 
377 


378 
379 
380 
381 
382 


383 
384 
385 
386 
387 
388 
389 
390 
391 

392 
393 
394 


395 
396 
397 
396 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
429 
429 
430 
431 
432 
433 
434 
435 
436 
437 
436 
439 
440 
441 
442 
443 
444 
445 
446 


F4MENUS = 


FSMENUS = 


F6MENUS = 


FIMENUG = 


F2MENU6 = 


F3IMENU6 = 





* 


#$07 sl'interruption vient du mo 
uvement de la sourfs 

INTMODE 

* 

#$0r {l'interruption vient du ra 
ffraichiserent d'ecran 

INTMODE 

à désactive la souris 

#$01 ; souris en mode passif 

INTMODE 


CÉREERELLLELSLELLIEEEEEEEEELI LL LEE LL LEE] 


* rout acti Mouse 


* 


* uti EUX CT 


input : Ÿ setmouse, servemouse..... À mode eventu 


lle 


* output: rien 
CÉREERELELELELILLLEEELREEEES IEEE EEE EEELEEE, 


LEMOUSE  LDX 
STX 
SMOUSE LDX 
LDY 
XXMOUSE  JSR 
RTS 


$C400,Y 
XXMOUSE +1 
CN 

NO 

$c400 


him iinihhiiiiiitiihiiiintins 

#rout uti prodos via MLI 

*entré :À fctn code 

* :XY adr du parametre (faible fort) 
appel : JSR LEPRODOS 


*sorti :cf manuei 
Déhéotadésaassssséseontesptttontrés 


LEPRODOS STA 
STX 
STY 
LEPROÏ JSR 


LEPROI +3 
LEPROI +4 
LEPRO1+S 


Rasatansdéaseséarentttentananaaat 


ALLOCM = 


#SETMOUSE 
INTMODE 
LEMOUSE 


Étant tntnahatatatnane 


* 


TFER calcul I6 bits 
*ftnc : UBY)/(2"sensi) => (AY) 
*entré:AY valeur cal 


*uti ‘tout 


LÉRFEEEREEEEES EE EEE LEE LEE LE ELLE LLILLEL,) 


TFER LDX 
STY 
CLC 
CLD 
TFERI ROR 


SENSI 
CALCTAM 
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ROR CALCTAM 


BNE TFERI 
LOY CALCTAM 


CÉELELLELLLI LES LILI IL LL LILI II 
*TFERINV 


“fcen ;: AY * 2*SENSI 
+ 


=> AY 


LLRRLLLELLELELELELELEREEEEEEEEELE,] 


TFERINV LDN SENSI 
STY CALCTAM 
CLC 
CLD 

JINV ROL CALCYAM 
ROL 


DEX 

BNE  JINV 
LDY CALCTAM 
RTS 


CELLELELELLLLELTESLELIL ELLE TILL] 


? SCREEN 


*{extrait de la routine de 80 coi} 
* 


*“fctn :prend ou met le car 
“entré :V=0 pr store 

. Vzl pick 

e A car à stocker 

° Y pos horf 

“sort A car eventuel 


hanté tiiéiiasinnninus 


RDSOVID =  SCOIF 
YSAVEI = sir 
TXTPAGE] =  SCO54 
TXTPAGE2 =  $C055 
+ 
* 
SCREEN EQU * 
STY  YSAVEI :YSAVEI= $1F 


PHA 
“eviter de changer V via BIT 
LDA RD80VID ; 
BPL JSCRN40 ‘bra 51 40 col 


*80 col 


LDA  YSAVEI 


BVS }STOR80O 
“ 


*80 col pick car 
LL 


P#P 

SEI sblocq IRQ pr screenholes 

LDA  TXTPAGE2 /TXTPAGE2= $C0SS 

BCC JSCRN2 

LDA TXTPAGEI 
ISCRN2 LDA  (BASL),Y 


:TXTPAGEI= SCOS4 
;BASL = $2B 


LDA TXTPAGEI 


BVC jEXRIT 


ISTORBO PLA 


LDA TXTPAGEZ 
BCC JSCRN3 
LDA  TXTPAGEI 


ISCRN3  PLA 
STA  (BASL),Y 
LOA  TXTPAGE1 


BVS JEXIT 
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533 
534 


540 
54 
542 


544 
545 


*40 coi 
ÏSCRN4O LDY YSAVEI 
BVS jJSTOR40 


PLA 

LDA (BASLj,Y 
PHA 

BVC JEXIT 


JISTOR40O  PLA 
PHA 
STA (BASL),Y 


JEXIT PLA 
LDY YSAVEI 
RTS 


hnnniiinisittotannnnsnninns 


READCAR EQU * 
CLV 
JSR SCREEN 
RTS 


* 
« 
LELLLELLLELLESSIS ESS LLEE) 


AFFCAR EQU * 


BIT INVFLG 

BMI }STORE2 

£EOR #5$B0 
ISTORE2 BIT SEV 


#INVFLG + $ 32 


;:Car inversé 
: (SEV)=$60 


SEV RTS 


CREER EEEEETEEL 22) 


*AFCURM affi curseur saugarde le car ds OLDCAR 


AFCURM  EQU * 
JSR SBASL 
JSR NEWXYM 


JSR MBASCALC 
LDY MAHORI 
JSR READCAR 
STA OLDCAR 


LDA +542 
AFCURM2 LDY MHORI 

JSR AFFCAR 

JSR RBASL 


RTS 


hits 
? AFOLDCAR 

* affiche le caractères qui se 

* trouvait sous le curseur de la 


* souris 
L 


AFOLDCAR EQU * 
JSR SBASL 
LOA MVERTI 
JSR MBASCALC 
LDA  OLOCAR 
JSR AFCURM2 


RTS 


Réttninththhhhéattthhhhhatatank 


CBASLM EQU * 
LDA BASL 
STA BASLM 
LDA BASL+] 
STA BASLM+I 


CELEELEEELLLIS SIL LLILELILLELELELELELELLLE,) 


*SBASL sauvegarde la position actuelle du curseur 


saffiche le caractères ds À 
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620 SBASL LDA BASL 


| 621 STA BASLM2 
622 LDA 8ASL+1 
623 STA BASLM2+1 
624 RTS 
625 


626 RARARARRRRRRRRAARARRRRRRARARRAR RER 


627 *RBASL recupere laposition du curseur 





628 * 

623 RBASL LDA BASLM2 

630 STA BASL 

631 LOA  BASLM2+1 

632 STA BASL+] 

633 RTS 

634 

635 RRÉRRÉRRÉRÉRÉRRRRÉRÉRRRRRÉRRRARAR 
| 636 * NEWXYM 


637 * calcule la nouvelle position 
638 #* du curseur de la souris 


639 * 
640 NEWXYM EQU * 
641 
| 642 LDX #$04 
643 
644 LDA S$578,X prend le poids fort 
645 LBY 5478,X ‘s puis faible de 1a positio 
n horizontal 
646 JSR TFER s puis divise par 2"sensi 
647 STA MHORI+I smettez le resuitat dans ME 
ORIT,+1 
| 648 STY MHORJ + pour AFFCURM plus tard 
| 649 
650 LDX  #$04 
6s1 LDA SS5FB,X sde meme pour la position 
652 LDY S4F8,x ; vertical 
| 653 USR TFER 
654 STY MVERTI 
655 RTS 
656 
657 CELLES SLSLELSE ELLE LE LEELE LE LEE LE LELSSLEELSSS ] 
658 #*** remise à zéro de tous le drapeaux 
659 * 
660 
661 ZERO EQU  * ssi //e renplace 
662 STZ NFLAG ssté nfiag .... 
663 STZ MVERTI2 
664 RTS 


665 ARRÉRÉRARRÉARRÉRÉÉÉARÉRÉÉRRÉRÉRRRÉRÉRRRÉ 
666 #* PMENU & SCAR 

667 #* routines pour sauvergarder et charger 
668 #* ies caracteres du menu à afficher 








669 * 

670  PMENU LDA S$SFFO0,X 
671 RTS 

672 

673 SCAR STA SFFO0,X 
674 RTS 

675 

676 RARRARARRRRARRARERRRRRRRRÈAARA A 
677: 4e MARQ 

678 * affiche le marqueur à gauchea 
679 #* du fonction choisit 
680 * 

681 MarQ - : 

682 JUSR SBASE 
683 LDX #2 

684 

685 KK LDA MVERTI2 
686 BNE  ÏJEFMARQ 
687 LDX #1 

686 LDA MVERTI 
689 J}EFMARQ YJSR MBASCALC 
690 

691 LDY MGMENU 
692 UJSR READCAR 
693 CMP #4" ! 

694 BEO JMARQ2 
635 CMP  #'"D" 
696 BNE JMAR@I 
697 LDA #!' ! 
698 BNE  }MAROI 
699 jMARO2 LDA #'Dr 

700  jMARO1 JSR AFFCAR 
701 LDA MVERTI 
702 STA MVERTI2 


a 


703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
129 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 


734 


735 
736 
737 
738 
739 
740 
741 
742 


743 
744 
745 
746 
747 
748 
749 
750 
751 


752 
753 
754 


735 
756 
757 


758 
759 
760 


761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 


772 
773 
774 
775 
776 
777 


778 


DEX 
BNE 
JSR 
RTS 


À EFMARO 
RBASL 


shétRtt tant Rentrée tééténé 
ul LETTIRO 


* routines de detection et analyse les différentes 
* cas vient du click du beïtor 


* 


LETTIR@ EQU 


BIT60 


BIT61 


JFOK 


BIT70 


TOTO 


BIT70X 


BIT7i 


ÎCONTI 


SN@MENU 
N@MENU 


BIPI 


LDX 
LDA 
R@ez 
ROL 
ROL 
AND 
EOR 
BEQ 


LDX 


* on arrange d'abord les 


+ 
#04 ; bit du registre d'etat 
S778,X ; de la seuris 


#3 

#3 

BIT6Ï ‘Bouton est encore appuiée 

BIT71 Bouton vient etre appuiée 

BIT70 sBouton vient etre relaché 

* Bouton est encore relaché 
; pas d'utilisation 

* ;Bouton reste appuié 

NFLAG si le menu pas affiché 

JFOK + elors fin 

MVERTI ;si non regarde est on sur 
la preñiére ligne 

JFOK + si c'est le cas pas de "# 
arqueur* 

MARQ ; 

* Bouton vient etre relaché 

NFLAG teste 51 un menu affiché 

E $ OÙ non 

BIT/0X ;55i oui recupéres l'ecran s 
ous le menu 

MVERTI 

F 

NECTN 

F 
spuis prépare le vecteur du 
; JSR FnMENUx en TOTO 

PMENU 

TOTO+1 ; charge le poids faible de 

FAnMENUx 

î 

PMENU 

TOTO+2 + charge le poids fort de F 
nMENUx 

S0000 ‘saut à FnMENUx 
sPuis retourne au prog. pri 
ncipai 

AFFMENU affiche l'ancien ecran sou 
s le menu 

ZERO sremet les drapeabx à zéro 

* ;Bouton vient d'etre appuié 

NFLAG 

NOMENU smenv deja aff 

MVERTI 

BIP1 sen est pas à la ligne 0 do 
nc pas de menu à afficher 
CA 

ZERO 

* recherche quel est le Menu 
à afficher puis l'affiche 

#500 ; en sauvegardant les carac 


teres qui se trouvent 
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779 LDA 
780 LDY 
781 INY 
782 }BOU 5 
783 DEY 
784 BMI 
785 INX 
786 INX 
787 INX 
788 INC 
789 

790 CMP 
79] 

792 BEQ 
793 

794 BPL 
795. ‘# 

796 JSR 
797 

798 LDA 
7939 JSR 
800 LDY 
801 JSR 
802 PHA 
803 

804 JSR 
805 PLA 
806 CMP 
807 BEQ 
808 * 

809 DEC 
810 DEX 
811 DEX 
812 DEX 
813 

814 JF1 EQU 
815 LDA 
816 STA 
817 

818 JCONTI = 
819 AFFO Loÿ 
820 

821 LDA 
822 BEQ 
823 


824 SUITE . 


825 STA 
826 STA 
827 STY 
6828 STY 
828 

830 ASL 
831 ASL 
832 ASL 
833 ASL 
834 

835 LDX 
836 UYSR 
837 STA 
838 INX 
839 JSR 
840 STA 
94] INX 
842 JSR 
844 BEQ 
845 

846 JCONTI STA 
847 

848 ASL 
849 TAX 
850 STX 
851 

852 AFFMENU = 
853 JSR 

1 [e] 
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MHORI : sous le Menv 
MAXMENU 
° sBoucle de recherche le num 


ero du menu (dans NFLAG) 
; a afficher 
SNOMENU 


NFLAG 
TABMENU-1,X; A-{TABMENU-1,X) 
JF 1 ; Cas particulier Île cursevu 


r pointe sur le premier 
; caracteres du nom du menu 
CA 


1BOU 

SBASL ‘sauvegarde la position act 
uelle du curseur 

#00 

MBASCALC 

MHORI 

READCAR sprend le caractères sous Î 
e curseur 

RBASL 

( ue ssi c'est l'espace alors pa 
s de menx à afficher 

SNCMENU 

NYLAG ssi non ajuste le numero du 
menu 
;: et X pointeur de La table 

LA 

NFLAG 

BREAKF 

+ 

TABMENU-3, X 

TABMENU-2,X 

SNOMENU 

. 

SCAR+2 :1Ci on charge pointeurs 

PMENU+#2 ‘recuperation et affichage 

SCAR+1 : des car du menu et sous 1 
e menu 

PMENU+i 

NFLAG 

NFLAG 

NFLAG 

NFLAG snf menu du Premier riveau 
spossibilite de creer des m 
enu déroulant de 2 niveaux 

#00 

PMENU 

MCMENU son ctarge ia marge gauche 
, droite , 

PMENU 7 

MDMENU 

PMENU ;: puis le nombre de lignes 
du menu 843 

SNOMENU sassure le coté droite ( ca 
s particulier }) 

NECTN 

XTANMP jet maintenant index X poin 
te sur le premier 
; Caractères à afficher 

LA 

SBASL 


x0 PAA 


X1 JSR 


X2 PA 


RTS 


XTAMP 

#01 

MBASCALC 

MGMENU 

READCAR 

#'p' scas particulier ou le cara 
ctere est le marqueur 

X2 

26 ;: alors remplace par le car 
actere de la borne gauche 
; sauvegarde le caractere su 
T l'ecron ds la pile 

PMENU charge le caracteres 3 aff 
icher 

AFFCAR ;: on l'affiche 

SCAR tsauvegarde le caractere de 
l'ecrär 8 14 place du menu 

MDMENU 

XI 

NFCTN sa-t-on affiché les lignes 

x0 

RBASL ;si oui recupere la positio 
n current du curseur 
set revient au programme pr 


incipal 


nn nontnntnntnnnnnnnsnt 


* calcule l'addresse de la ligne À 


* 


MBASCALC PHA 
LSR 


MBASC2 STA 
ASL 
ASL 
ORA 
STA 
RTS 


#$03 
#$04 
BASL+1 


514 
MBASC2 
#S7F 
BASL 


BASL 
BASL 


CEREEEEELEEEELE EEE LL ELLE, LL LLLELELEL),, 


CÉRELERELEEEEEEEELES LEZ L LL LLLLLLE|] 


TRAITIRQ EQU 
PHA 
PHX 
PHY 


CLD 
LDY 


JSR 
BCs 


LDY 
LDA 
JSR 


JSR 


LOY 


spour les 6502 
; TXA PHA ..... 
sseuveÿarde des registres 


#SERVEMOUSE; regerde si l‘'interuption 
ient bien de 
LEMOUSE ë la souris 


JFIN 

#SETMQUSÉ ;si c'est le cas 

#$01 

LEMOUSE : alors désactive i'interru 
ption 

AFOLDCAR saffiche le caractere qui à 


ete sous le curseur 


#READMOUSE ;a Jour l'etat et position 
de la souris 
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9239 
930 
931 
932 


933 
994 
935 
936 
537 
938 
939 
940 
941 
942 


943 
944 
945 
946 
947 
946 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
955 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
933 
994 


995 
998 
997 
998 
993 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 


USR LEMOUSE 


JSR LETTIRO straitement des "ciicques"* 
USR AFCURM saffiche la nouvelle positi 
on du curseur 


FIN LOY ÀSETMOUSE remet mode d'interuption 
LDA INTMODE 
JSR LEMOUSE 


PLY 

PLX 

PLA ‘recupere les registres a 
la sortie 

RTI 


CRÉÉE LELIILLE ES SES SSLLELILL EL EL ELLES) 


INITPOSM initialise la fenetre de la souris 
is fenetre de la souris sera calculée par 
la potsition maximum horizontale {puis verticale) 
en multipliant par 2"SENSI 


M$ = € » 


INITPOSM EQC * 


LDA #00 
STA $478 
STA $578 


LDY MAXFEH 
LDA MAXFEH+1 
JSR TFERINV 


STA $5F8 
STY $4F8 
TXA 


LDY  #CLAMPMOUSE 
JSR  LEMOUSE 


TXA 

STA $478 
STA $578 
LDY MAXFEV 
TXA 

USR TFERINV 
STA $5Fr8 
STY $4r8 
TXA 

THA 


LDY  #CLAMPMOUSE 
JSR LEMOUSE 


RTS 


PET SLI III TIISIISL IS LL) SES SL LS ESELSELSL EL EL LEEE 


# DEBUT du prograrme 


DEBUT EQU # 


USR $C300 sactive a 80 col 

USR $Fr839 s£fenetre standard 

JSR SFCS58 “HOE 

LOA #Z 

STA WNDTOP ;sfixe marge haute de ecran 
LDA #00 


JSR MBASCALC saffiche la premiere ligne 
de commande 


LDY #01 

Bou LDA TITRE-1,Y 
BEQ FIN 
JSR AFFCAR 
INY 
BNE jBOU 

JFIN LDA #01 
JSR MBASCALC 
LDA #'"Ss" ;saffiche le grand trait 
LDY #79 

Con JSR AFFCAR 
DEY 
BPL JCON 
JSR $SFCS58 








1011 

1012 LDA #$0F 

1013 STA INTMODE 

1014 L0B #" " 

1015 STA OLDCAR 

1016 

1017 

1018 LDY #INITMOUSE sractive la souris 

1019 JSR LEMOUSE 

1020 

1021 JSR INITPOSM sdéclare la tallle de 1a fe 

neètre à travailler 

1022 

1023 LDY  #CLEARMOUSE 

1024 USR LEÉMOUSE 

1025 

1026 LOY  #SETMOUSE 

1027 LDA  INTMODE 

1028 JSR LEMOUSE 

1029 

1030 LDX  HKTRAITIROQ 

1031 LDY #>TRAITIRO 

1032 STX S$S3FE 

1033 STY S3FF 

1034 7090- F4 ES A0 AO AO AO A0 A0 

1035 LDA #$4C 7098- AO AO AO AO 5A 4€ 4C 4C 

1036 STA $3F5 P0A0- 4C 4C 4C 4C 4C 4€ 4C 4C 

1037 LDA  F$00 70A8- 4C 4C 4C 4C 4C 04 10 06 

1038 STA $3F6 7080- 00 00 72 10 72 2B 72 4A 

1039 LOA #570 7088- 72 5F C3 Ei F4 El ECEF 

1040 STA $3F7 70c0- 57 F5 E5 AO SA 5F C5 F8 

1041 70C8- ES E3 F5 F4 ES AG AO AO 

1042 RTS 70D0- SA SF C3 E8 El F2 E7 ES 

1043 70D8- AO AO AO A0 5A 5F D3 E1 

1044 thtihiiiiihitiittiaiith 7050- F5 F6 ES AS AO AO AO AO 
70E8- SA 4C 4C 4C 4C 40 40 4C 

1045 70F0- 4C 4C 4C 4C 4C 0D 18 04 

1046 20F8- 00 69 72 6A 72 5F D2 CS 

1047 CONT EQU * 7100- CE DS CD C2 CS D2 A 5A 

1048 * 7108- 5F D3 CS C1 D? C3 C8 A 

1049 #* CATALOG SOUS PRODOS 7110- AO A0 SA 4C 4C 4C 4C 4C 

1050: 7118- 4C 4C 4C 4C 4C 4C 15 20 

1051 * 7120- 06 00 68 72 6C 72 60 72 

1052 LDX #00 7128- 6E 72 SF CC E9 F3 F4 AQ 

1053 C@MMAND LDA CATALOG, X 7130- AO AO AO A0 SA 5F C8 ES 

1054 STA $200,X 7138- F8 El AO A0 A0 AO A0 SA 

1035 cu 1530 ns 

1056 BEQ: ICONEIN 7150- F5 F4 ES AO AO $A 4C 4C 

1057 1e 7158 4C 4C 4C 4C 4C 4C 4C 4C 

1058 BRA  COŒMAND 7160- 4C 1F 29 08 00 6F 72 70 

1053 * 7168- 72 71 72 92 92 73 72 74 

1060 C@MFIN JSR $BE03 2170- 72 5F CC E9 F3 F4 E9 £E 

1061 rts 7198- E7 A0 SA 5F O4 ES F8 F4 

1062 7180- 40 B4 80 AO SA 5F D4 ES 

1063 2188- F8 F4 AO 88 B0 AO SA 5F 

1064 MESER@R LDA SBEOF 7190- C8 EJ F2 AO E1 AO AO AO 

1065 JSR SBEOC 7198- SA SF C8 E?7 F2 AO 82 AO 

1066 RTS 71A0- AO AO SA 5F C4 C8 C7 D2 

1067 * 71A8- AO AO A0 AO SA 4C 4C 4C 

1068 CATALOG ASC "CATALOG" 7180- 4C 4C 4C 4C 4C 4C 4C 2B 

1069 REX 8D 7188- 39 05 00 75 72 78 72 81 
71C0- 72 5F D6 D4 C2 CC AO CF 
71C8- C6 C6 AO A0 AO AO SA 5F 

4 4 Ê 7100- D6 D4 C2 CC AO CF CS A0 
Récapitulation 71D8- AO AO A0 A0 SA SF CD CF 


LEMOUSE3.0.C 71E0- 05 D3 CS AO CF C6 C6 A0 


7168- AÔ A0 5A 4C 4C 4C 4C 4C 


Après avoir saisi ce code 71F0- 4C 4C 4C 4C 4C 4C 4C 4C 
sous moniteur, voue le 71F8- 4C © C5 00 00 60 60 60 
sauve ganderez par 7200- 78 A2 F9 AO 75 8E E2 75 
BSAVE LEMOUSE30.C, 7208- 8C E3 ?5 20 07 75 58 60 
A$7000 LS601 7210- 78 A2 20 AO 72 8E E2 75 
2000- 4C 75 75 03 00 04 00 00 7218- 8C E3 75 20 DE 75 58 60 
7008- 00 00 00 00 AO 00 00 00 ?220- AD D7 CF D2 CB C6 C9 cc 
7010- 00 00 00 06 00 4F 00 17 7228- CS 8D 00 78 A2 3B AO 72 
7018- 00 AO OF Q4 C4 40 63 70 7230- 8E E2 75 8C E3 75 20 DEF 
7020- 01 AD 70 05 F5 70 OF lE 7238- 75 58 60 CC CF Ci C4 A0 
7028- 71 16 61 71 20 87 71 2C 7240- D7 CF D2 CB C6 C9 CC CS 
7030- F9 72 33 41 AO AO AO DO 7248- 8D 00 78 A2 SA AO 72 6E 
2038- D2 CF C4 CF D3 AO AO A0 2250- E2 75 8C E3 75 20 DF 75 
7040- C2 Ci D3 C9 C3 AO A0 AO 7258- 58 60 D3 C1 D6 C5 AO D7 
7048- CD CF CE C9 D4 CF 82 A0 2260- CF D2 CB C6 C9 © CS 8D 
7050- AO A0 C3 CD 20 D2 c9 cD 7268- 00 60 60 60 60 60 60 60 
7058- Ci CE D4 AO AG A0 CD CF 7270- 60 60 60 60 60 A9 07 8D 
2060- C4 C5 00 00 20 05 00 FD 2278- 1A 70 60 A9 OF 80 1A 70 
7068- 71 FE 71 FF 71 A8 E3 A9 7280- 60 A9 01 80 lA 70 60 BE 
7070- AO CC ES A0 DO A6 D4 C1 2288- 00 C4 8E 94 72 À€ 1C 70 
7078- CD A0 B8 B$ 5A SF C3 El ? : . / 
7080- EC E3 F$ EC E5 F4 F4 ES Suite de la récapitulation 
7088- AO AO AO AO SA 5F C4 El page 73... 
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ans un univers 
1 micro-informa- 
tique bouleversé 
>. par les annonces 
et les nouveautés d'IBM, 
Apple est curieusement 
devenu un symbole de 
stabilité. 


Résultat la clientèle se 
transforme. Ainsi, en France, 
plus de 20% des Macintosh sont 
actuellement vendus à des 
sociétés figurant parmi les 100 
premières entreprises du pays. Et 
ce changement de profil des 
utilisateurs ne manquera pas de se 
répercuter sur les futurs produits 
de la firme de Cupertino. 
L'interchangeabilité des fichiers 
avec le monde IBM étant devenue 
une priorité, Apple sortira dès 
septembre un lecteur (Apple 525 
PC) capable de lire des 
disquettes IBM, ainsi qu'un 
système de récupération sur le 
Mac des fichiers de l'IBM, 
baptisé Apple File Exchange. 


Les autres annonces à venir 
d'Appie concement des logiciels 
de télécommunication ainsi 
qu'un programme baptisé Wild 
Card et écrit par Bill Atkinson, 
l'auteur de MacPaint, qui serait à 
la fois un générateur d'application 
et un instrument d'intelligence 
artificielle. Du côté des 
imprimantes, on étudie à 
Cupertino un modèle couleurs 
ainsi qu'une Laser Writer de bas 
de gamme (ne comportant pas le 
langage PostScript). À propos de 
PostScript, il faut signaler la 
sortie d'un livre en français sur ce 
langage de programmation 
particulier. L'ouvrage de 164 


Jean-Michel Gourévitch 


pages distribué par BIP est divisé 
en deux parties : une introduction 
à PostScript et un recueil de 
programmes. Livre seul 
285,00 F. Livre et disquette 
d'accompagnement : 550,00 F. 
LaserPaint de DOS Ltd, aussi 
distribué par BIP, est un logiciel 
de pilotage pour la Laser Writer 
Apple et les photocomposeuses 
PostScript. 6 300,00 F, en 
français. 


Le logiciel de lecture optique 
automatique et reconnaissance de 
caractères dactylographiés 
READSTAR ][+ d'INOVA- 
TIC est maintenant disponible 


pour Macintosh Plus. 
43 000,00F H.TF. avec un 
scanner Microtek 3802. 


Dans son dernier numéro, Pom's 
annonçait la création de lecteurs 
employant des disquettes de 10 
ou 20 Mégas. Ils n'auront pas 
mis longtemps à déferler sur le 
marché. Jasmine, qui fabriquait 
déjà des disques durs parmi les 
moins chers du marché, propose 
désorrnais un lecteur employant 
des disquettes de 10 Mégas de 
format 5’1/4 (comme les 
anciennes disquettes de l'Apple 
JL mais conditionnées dans un 
étui plastique analogue aux 
disquettes 3,5 pouces du Mac). 
Prix pour le “Mega Drive” : 999 
dollars et, pour chaque disquette : 
40 dollars. 


Cette même firme propose un très 
ingénieux disque dur de 40 
mégas, le MacBack, qui se fixe 
simplement au dos du Macintosh. 
Prix : 1300 dollars. 


Pour les logiciels, c'est à la 
rentrée, et particulièrement pour 
l'Apple Expo d'octobre, qu'il 
faut s'attendre à des nouveautés. 


En attendant, voici des rééditions 
et des VF. 


Nouvelles versions 


Une nouvelle version du tableur 
Trapeze (distribué en France par 
Alpha Systèmes). La 2.0 
intègre en plus des possibilités de 
se construire son tableur ‘en kit’, 
un grapheur sophistiqué, qui 
mettent encore davantage ce 
tableur à part, et le rapprochent 
d'un programme de mise en 
page. 


Une nouvelle édition de 
Sidekick, l'ensemble 
d'accessoires de bureau de 
Borland, contient plusieurs 
accessoires de bureau s'installant 
dans le menu 6,et ajoute 
notamment un mini-tableur, un 
mini-traitement d'idées, aux 
accessoires précédents. 


Nouvelle version aussi, la 2.1 
d'Over VUE, ‘Gestionnaire 
Relationnel Multifichier’ francisée 
et distribué par Soulat Frères 
S.A., plus rapide que la version 
précédente. 


Publication 
électronique 


C'est toujours le ‘must’. Target 
Software met la dernière main à 
Scoop, un logiciel de PAO 
permettant d'entourer le texte 
autour d'objets irréguliers, de 
remplir une image de textes, de 
pratiquer un crénage fractionnel 
entre les lettres, de réduire les 
espaces entre les lignes ou entre 
les mots, d'allonger un caractère, 
de faire pivoter une image, etc. 
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Letraset se prépare à sortir la 
version 3.1 (encore améliorée!) 
de Ready Set Go, Mindscape 
présente Graphics Works 
Ï.1, un outil permettant de 
peindre, dessiner, écrire, éditer 
des documents professionnels. 
Italsoft vend en France 
Ragtime, un traitement de textes 
évolué, avec un tableur (très 
complet) et des fonctions de 
micro-édition. 


Microsoft a sorti avant les 
vacances, en France et dans notre 
langue, Works son logiciel 
intégré (traitement de textes, 
gestion de fichiers, tableur) ainsi 
que Word 3.0, la toute nouvelle 
version du célèbre traitement de 
textes comprenant césure 
automatique et correcteur 
orthographique intégré, qui en 
font un des plus puissants outils 
du marché, en concurrence 
directe avec Writer Plus, sur 
lequel il a l'avantage d'une 
parfaite fiabilité. 


Éducation 


Il manquait au Macintosh un 
système auteur. C'est une 
omission réparée avec Dr Léo 
d'Apigraph, qui permet aux 
enseignants de produire eux 
mêmes des didacticiels adaptés à 
leurs élèves, reposant notamment 
sur l'utilisation d'un livre 
interactif, de livres annexes, et 
d'un cahier de l'élève. 


Matériel 


Du côté des matériels, 
P-Ingénierie vend un boîtier 
miracle baptisé Multi Talk. Ce 
boîtier permet de bancher et de 
rendre partageable sous le réseau 
Apple Talk des périphériques qui 
n'étaient pas étudiés pour cela. 
Ainsi, plusieurs utilisateurs nantis 
chacun d'un Mac peuvent 
désormais se partager une 
ImageWriter, ou un modem. 


Puisque la vogue de la 
publication électronique ne faiblit 
pas, International Computer 
propose des écrans pleine page 
parmi les moins onéreux et 
s'installant par ‘clipage’ et donc 


sans dommage au Mac : 
Dimension 15 (vertical A4 
résolution 720 x 900 : 17 671 F), 
Dimension 17 (vertical A4 
résolution 768 x 1024: 23 600 F) 
et Dimension 19 (horizontal A3 
résolution 1024 x 915 : 24 800 
Fe 


Transformer son Mac en 
puissante station de travail ? C'est 
possible avec Workstation 
vendu par Abvent. Pour 25 à 
50 000,00 Francs, ces cartes 
ajoutent un processeur Motorola 
68020 tournant à 12 ou 16 
mégahertz et un coprocesseur 
mathématique 


Autre périphérique intéressant : 
l'Organizer Il de Psion, 
vendu par KA. Il s'agit d'un 
véritable micro-ordinateur 
miniature de la taille d'une grosse 
calculette, disposant d'un 
langage de programmation, 
permettant de saisir sur le terrain 
des informations, puis de les 
transmettre et de les récupérer sur 
le Macintosh. Un logiciel File 
Pak permet de créer des fichiers 
et de les manipuler, sans 
connaître la programmation. 


Quant à Thunderscan, le 
numériseur s'installant dans 
l'imprimante ImageWriter à la 
place du ruban, il a été 
sérieusement perfectionné et 
permet notamment d'entourer les 
images dans des formes variés, 
de réaliser des dégradés, de 
sauvegarder les images en 
Postscript ou en TIFF, ce qui le 
rend parfaitement compatible avec 
PageMaker. À remarquer que ce 
même Thunderscan est désormais 
aussi disponible pour l'Apple // et 
le IIGs. 


Ada sur le Mac 


Alsys, créateur du langage Ada, 
vient de signer un accord avec 
Apple Computer pour le 
développement d'un compilateur 
Ada destiné au Macintosh II. 
Rappelons que ce langage, 
développé principalement par 
Jean D. Ichbiah, président 
d'Alsys, a reçu l'agrément du 
gouvernement américain et a 
aussi été adopté par la NASA. 








L'Apple // ? 


Les programmes: destinés au GS 
de Version Soft (et 
particulièrement GS Write) ont 
connu quelques problèmes de 
mise au point, épuisant parfois la 
patience des utilisateurs. 


Pour l'Apple //, voici un nouveau 
disque dur de... 320 mégas, le 
Data Exchange de CMS 

Enhancements. Une nouveauté 
impoitante permettant de se relier 
également au Mac et de partager 
des dossiers entre les deux 
familles Apple. 


On peut en ce moment trouver, 
chez les revendeurs Apple, une 
plaquette publicitaire donnant une 
liste de quelques programmes qui 
‘tournent’ sur le GS : 
° Graphique 

o GS/Paint 

o  VS/Draw 

°  GraphicWriter 

° De Luxe Paint 

eo Slide Show 

o Chairman 

o  Visualizer 

eo Démo QuickDraw 
° Son 

o  Digitalisaton sonore 

°  Synthé 

o Music Construction Set 

o Démo QuickDraw 
+ Éducation & 

Productivité personnelle 

o  AppleWorks 

o  GS/Paint 

o GS/Write 

o  VS/Com 

o  VS/Draw 

°  GraphicWriter 

o  Visualizer 

o De Luxe Paint 


+ Education & 


Loisirs 
o Géographie 
o Logo 


o Color Mind 

o  Digitalisation sonore 

°  Synthé 

e Slide Show 

o Music construction set 
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o Démo QuickDraw 
e Chairman 


+ Utilitaires & 
Outils de développement 


o MouseDesk 
o Chooser 
o Memsoft 


o Basic AppleSoft 
o  Digitalisation sonore 


sac de transport pour Macintosh 
baptisé MACROCO. L'objet, 
fabriqué en série limitée, est en 
cuir ler choix et crocodile. 
8 302,00 F (quand même !), 
chez Kangourou services. 


Adresses 


Jasmine Technologies 


114, bd Blanqui 

75013 Paris 

&æ 47 07 35 65 

CMS Enhancements 
3080 A Airway Av. 
Costa Mesa CA USA 
Apigraph 

32 bis, quai JB Simon 
69270 Fontaines s/ Saône 


Abvent 





+ Logo 555 de Haro St San Francisco 
; CA 94107 53, avenue de Breteuil 
°_ Slide Show 75007 Paris 
Gesti Alpha Systèmes 47 34 43 
F'HAESUOn 18, avenue d'Alsace Lorraine 734439 
°_ Sénior 38600 Grenoble BIP 
°  Memsoft Comptabilité æ 76 43 19 97 13, rue Duc 
o Memsoft Ventes P-Ingénierie 75018 Paris 
o  Memsoft Paye 226, bd Raspail æ 42 55 44 63 
°  Memsoft Microbase 75014 Paris AIsys 
z 43 21 93 36 29, avenue de Versailles 
Jeux Intecnatonal Compiitet 78170 La Celle St Cloud 
Sur le front des jeux, voici un 26, rue du Renard INOVATIC 
nouveau ne de vol 75004 Paris 2 eUDIe RER ORAN 
Peau en D de2120720 3, avenue du Centre 
FRERE KA 78180 Montigny le Bretonneux 
Ilolobyte, qui représente le z 30 572211 
poste de commande d'un F16, 14, rue Magellan 
avec son viseur tête haute, ses 75008 Paris Soulat Frères S.A. ù 
bruits de réacteurs numérisés, la  æ 47 23 72 00 Département micro-informatique 
détection radar, etc. Le même Borland 45-47, rue de la Division Leclerc 
éditeur propose un simulateur de Les Postillons des Bruyères 94259 Gentilly 
vedette lance torpille baptisé PT  &5 rue de la Garenne æ 47 40 00 20 
“ , 
109 (du nom de la vedette où 92318 Sèvres Kangourou services 
s'illustra pendant la guerre le : B.P. 19 
défunt président Kennedy) Mindscape HAUTS 
Y). P.O. Box 1167 54130 Saint Max Cedex 
| : t T 83 21 25 33 
On termine ces micro-  Northbrook IL 60065 ” 
informations dansleluxeavecun  Italsoft 
7350- 73 20 7B 73 60 20 70 73 7438- A6 73 60 AD OD 70 DO 08 7520- 72 20 55 73 AO 14 20 87 
7358- AD OA 70 20 F7 74 AD OC 7440- AD OA 70 FO 04 20 A6 73  752g- 72 20 EB 73 20 26 73 18 
… suite de la page 70 7360- 70 20 4B 73 60 A5 28 8D 7448- 60 A2 00 AO 08 70 AC 13 7530- AO 12 AD 1 70 20 87 72 
7368- 04 70 À5 29 8D 05 70 60 7450- 70 C8 88 30 F0 E8 E8 E8 7538- 7À FA 68 40 A9 00 8D 78 
7370- A5 28 80 06 70 A5 29 8D 7458- EE 0D 70 DD 1D 70 F0 ]F 7540- 04 8D 78 05 AC 15 70 AD 
7290- AC 10 70 20 00 C4 60 80 7378- 07 70 60 AD 06 70 85 28 7460- 10 FO 20 70 73 A9 00 20 7548- 16 70 20 C3 72 8D F8 05 
7298- A3 72 8E A4 72 8C A5 72 7380- AD 07 70 85 29 60 A2 04 7468- F7 74 AC 08 70 20 22 73 7550- 8C F8 04 8A AOÛ 17 20 87 
72A0- 20 00 8F 00 FF FF 60 AO 7333- BD 78 05 BC 78 04 20 80 7470- 48 20 78 73 68 C9 AO FO 7558- 72 8A 8D 78 04 8D 78 05 
72A8- 12 AD 1A 70 20 87 72 60 7390- 72 8D 09 7G 8C 08 70 A2 7478- CC CE 0D 70 CA CA CA AD 7560- AC 17 70 8A 20 C3 72 8D 
72B0- AE 03 70 8C 18 70 18 D8 7398- 04 8D F8 05 BC F8 04 20 7480- O0D 70 8D 14 70 BC iB 70 2568- F9 05 8C F8 04 8A IA A0 
72B8- 6À 6£ 18 70 CA DO F9 AC 73A0- B0 72 8C OA 70 60 9C 00 7488- BD 1C 70 FO B8 8D B3 73 7570- 17 20 87 72 60 20 00 C3 
72C0- 18 70 60 AE 03 70 8C 18 73,48- 70 9C 0B 70 60 BD 00 FF 7490- 8D AF 73 8C 82 73 8C AE 7578- 20 39 FB 20 58 FC A9 02 
72C8- 70 18 D8 2E 18 70 2A CA 73B6- 60 9D 00 FF 60 20 70 73 7498- 73 OE 00 70 QE OD 70 0 7580- 85 22 A9 00 20 F7 74 A0 
72D0+ DO F9 AC 18 70 60 84 1F 7388- À2 02 AD 08 70 DO 05 A2 74A0- 0D 70 CE 0D 70 A2 00 20 7588- 01 89 32 70 FO 06 20 27 
72D8+ 48 AD 1F CO 10 32 ÀS 1F 73C0- 01 AD OA 70 20 F7 74 AC 74A8- AD 73 8D OF 70 Eg 20 AD 7590- 73 C8 DO F5 A9 01 20 F? 
72E0- 4A A8 70 16 08 78 AD 55 73C8- 0F 70 20 22 73 C9 5F F0 74B0- 73 8D 10 70 £8 20 AD 73 7598- 74 A9 53 ,40 4F 20 27 73 
72E8- CO 90 03 AD 54 CO B1l 28 73D0- 08 C9 44 DO 06 A9 5F DO 7488- F0 88 8D 11 70 OA AA 8£E 75A0- 98 10 FA 20 58 FC A9 0€ 
72F0- A8 AD 54 CO 78 68 98 49 73D8- 02 A9 44 20 27 73 AD CA 74C0- 12 70 20 70 73 AE 12 70 75A8- 8D 1A 70 A9 A0 8D OC 70 
72F8- 50 24 68 48 08 78 48 AD 73E0- 70 3D 0B 70 CA DO DD 20 74C8- A9 01 48 20 F7 74 AC 0F 75B0- A0 19 20 87 72 20 3C 75 
7300- 55 CO 90 03 AD 54 C0 68 73E8- 78 73 60 A2 04 8D 78 07 74D0- 70 20 22 73 C9 44 00 02 7588- ;10 15 20 87 72 A0 12 AD 
7308- 91 28 AD 54 CO 28 70 0£ 73F0- 2A 2A 2A 29 03 49 03 FO 74D8- A9 SF 48 20 AD 73 20 27 75C0- 1A 70 20 87 72 A2 OF A0 
7310- A4 1F 70 06 68 BI] 28 48 73F8- 07 3A FO 3F 3A FO OF 60 74E0- 73 68 20 B1 73 E8 C8 CC 75C8- 75 8€ FE 03 8C FF 03 A9 
7318- 50 04 68 489 91 28 68 A4 7400- AD 0D 70 FO 08 AD OA 70 74E8- 10 70 30 ES5 68 1A CD 11 75D0- 4C 3D F5 03 A9 00 8D F6 
7320- 1F 60 B8 20 D6 72 60 48 7408- F0 03 20 B5 73 60 AD 00 74F0- 70 30 D7 20 7B 73 60 48 75D8- 03 A9 70 8D F7 03 60 A2 
7328- 24 32 30 02 49 80 2C 35 7410- 70 F0 27 20 34 74 AD OA 74F8- 4A 29 03 09 04 85 29 68 75E0- 00 8&D F9 75 90 00 02 C9 
7330- 73 20 D6 72 68 60 20 70 7418- 70 FO 1F JA CD 11 70 10 7500- 29 18 90 02 69 7F 85 28 75E8- 8D F0 03 E8 80 F3 20 03 
7338- 73 20 86 73 98 20 F7 74 7420- 19 OA AA 20 AD 73 8D 31 7508- DA GA 05 28 85 28 60 48 75F0- 8£ 60 AD OF 8E 20 OC BE 
7340- AC 08 70 20 22 73 8D OC  7428- 74 E8 20 AO 73 8D 32 74 7510- DA 5A D8 A0 13 20 87 72 75F8- 60 C3 C1 D4d C1 CC CF C7 
7348- 70 A9 42 AC 08 70 20 27 7430- 20 00 00 60 20 C2 74 20 7518- 80 16 A0 12 A9 01 20 87 7600- 8D 
1 Le} 
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Disquettes 























Apple ]j[ Macintosh Accompagnement 
CLV_Pom's - 140Ko ou 800Ko 200,00F [1]  CLV_Poms  20000F [1 A][140Ko3 60,00F [1 
Éditeur Vidéotex - 140Ko 200,00F [)]  MacRaccourci 200,00F []  AJ[140Ko4 60,00F [] 
E.P.E. 5.1 - 140Ko 200,00F [)]  MacAstuces  200,00F []  AJ[140Ko5  60,00F [L] 
E.P.E. 5.1 - 800Ko 200,00F C1 Mac ‘A 80,00F []  AJ[140Ko6 60,00F [] 
Max (moniteur étendu) - 140Ko 150,00F C1  Mac‘B' 80,00F C) A][140Ko7 60,00F L] 
BananaSoft - 140Ko 200,00F [1  Mac'C' 80,00F [] AJ[140Ko8 60,00F [] 
Pascal - 140Ko 80,00 F [1 Mac ‘D' 80,00F C1 AJ[140Ko9 60,00F [] 
Max (moniteur étendu) - 140Ko 150,00F [1  Mac'E" 80,00F [1  AJ][140Ko10 60,00F LC] 
Dominos - 140Ko 80,00 F [] Mac F' 80,00F [1] AJ[‘40Ko11 60,00F [] 
COGO - 140K0 200,00F [1  Mac'G' 80,00F C1 A][140Koi2 60,00F [1 
Ludologic - 140Ko 80,00F [1 Mac ‘H 80,00F [1  A][140Ko13 60,00F [] 
Ordico - 140Ko 20000F [] Mac‘ 80,00F []  AJ][140Ko14 60,00F [] 
A][140Ko15 60,00F [1 
Recueils Pom's Mac 14/15/16  150,00F [1  A][140Ko16 60,00F [1 
Mac 17 80,00F [] AJ[140Ko17 60,00F [1 
Numéro 1 (Revues 1 à 4) 140,00F []  Mac18 80,00F © A][140Ko18 60,00F [] 
Disquettes 1 à 4 200,00 F [1  Mac19 80,00F [1] AJ[140Ko19 60,00F [1 
Numéro 2 (Revues 5 à 8) 140,00F []) Mac 20 80,00F [)] AJ][140Ko20 60,00F [1 
Disquettes 5 à 8 200,00F [1] Mac 21 80,00F []  AJ[140Ko21 60,00F [1 
Numéro 3 (Revues 9 à 12) 140,00F [] Mac 22 80,00F [1] A]J[140Ko22 60,00F [] 
Disquettes 9 à 12 200,00F [1] Mac 23 80,00 F [1  AJ[140Ko23 60,00F l] 
Mac 24 80,00F [)] A][‘40Ko24 60,00F 
reliures toilées Mac 25 80,00F [) AJ[140K025 60,00F [] 
pour 6 numéros, soit un an 60,00F []  Mac26 80,00F [1] A][140Ko26 60,00F [] 
Mac 27 80,00F [] AJ[140Ko27 60,00F [] 
Mac 28 80,00 F A]{140Ko 28 60,00F 
Apple ][ 800Ko 3'5 numéro 29  80,00F [1 Mac 29 80,00 F A][ 140Ko29 60,00F L 
Apple ][ 800Ko 3°5 numéro30  80,00F [] Mac 30 80,00 F [1  AJ][t40Ko30 60,00F [] 
Apple ][800Ko 3'5 numéro31  80,00F [1  Mac31 80,00F [1] AÏ{140Ko31 60,00F [] 
Revue n° 7 35,00F [1 Revue n° 8 35,00F © Revue n° 10  40,00F [1 
Revue n° 11 40,00F [] Revue n° 12 40,00F [] Revue n° 13 40,00F [] 
Revue n° 14  40,00F [] Revue n°15 40,00F 0] Revue n° 16 40,00F [1 
Revue n° 17 4000F [] Revue n° 18 40,00F [] Revue n° 19 40,00F [] 
Revue n° 20 40,00F [] Revue n° 21 40,00F [] Revuen° 22  40,00F [] 
Revue n°23  40,00F [1 Revue n° 24 40,00F [ Revuen° 25  40,00F [] 
Revue n° 26 40,00F [1 Revue n° 27 45,00F C] Revue n°28  45,00F [1 
Revue n° 29 45,00F C] Revue n° 30 45,00F [) Revuen° 31  45,00F 
Abonnements pour six numéros à partir du D 
la revue seule 22500F D 
la revue et les disquettes Apple ]{ 140Ko - 5" 1/4 525,00F D 
la revue et les disquettes Apple ][ 800Ko — 3 1/2 625,00F C] 
la revue eties disquettes Macintosh 625,00F [C] 
la revue, les disquettes Apple ][ 140Ko -5'1/4 et les disquettes Mac 925,00F C] 
la revue, les disquettes Apple ][ 800Ko — 3" 1/2 et les disquettes Mac 102500F © 


* pour les envois par avion, ajoutez 15 F par numéro et/ou par disquette soit, par exemple, 99 F pour un abonnement avec ou sans disquettes. 


Envoyez ce bon et votre règlement à : Éditions MEV - 12, rue d'Anjou - 78000 Versailles 
Nom : 
Adresse : 
| Règlement par: Carte Bleue/VISA O & 
numéro de la carte 


Montant ARE Signature : 


Mandat [] 


Chèque postal [] 
date d'expiration __ 


Chèque bancaire [] 











Câble-interface de communication Apple/Minitel 


Cette liaison — décrite dans les numéros 27 et 28 de Pom's — est indispensable pour faire fonctionner tes programmes suivants : 


* MinBas pour Apple ][+, /e, f{e+, lc et GS" : programme permettantl'enregistrement des écrans Minitel, la restitution à loisir 
hors réseau, le stockage et/ou l'impression de copies d'écran du Minitel, et aussi l'envoide textes ou messages sur un serveur, ces 
messages étant préparés à l'avance avec n'importe quel programme de raitement de textes. Programme publié dans le numéro 27 
de Pomr's. 

*_ Minitel/1 pour Macintosh : programme identique à MinBas pour Apple ][, avec en plus un mini-éditeur de texte pour la préparation 
et le stockage des messages sans sortir du programme. Programme publié dansle numéro 27 de Pom's. 

* _InterPom's pour Apple }[+, //e, //e+, fc et GS° : programme de téléchargement entre Apple ][ etou Apple }[ et Macintosh. Ce 
logiciel autorise ta transmission de n'importe quel type de fichier (système, texte, binaire, Basic.) en utilisant le Modem du Minitel. 
Programme publié dans le numéro 28 de Pom's. 

*_InterPom's pour Macintosh : même programme, mais version Maaintosh. Programme publié dans ke numéro 28 de Pom's. 

*_ TPom's pour Apple ]{+, //e, //e+, fic et #/GS** : programme de récupération de l'annuaire téléphonique sous la forme de fichiers 
texte. Voir page 53 du numéro 30. 

*__TPom's pour Macintosh : identique à la version Apple ]. Voir page 42 du numéro 30. 


* cœ programme est prévu pour fonctionner avec une carte Super Série Apple ; te port série intégré de l'Apple IIGS ne convient pas. 
Toutelois, si vous désirez utiliser le port intégré afin d'y connecter le Minitel pour d'autres applications, commandez un câble pour 
Macintosh Plus. 

** sur un Apple 1IGS, TPom's fonctionne indifféremment avec le porl série intégré ou la carte Super Série Apple. Pour connecter le 
port intégré du HIGS, utilisez un câble pour Macintosh Plus. 


Je désire recevoir: câble Minitel/Apple ][+, le, //e+, llas avec SSC à 22500F 
* câble Minitel/Apple //c ____ à 225,00F 

câble Minite/Macintosh 128 & 512K0 ____ à 22500F 

câble Minitel/Macintosh Plus, Il&s port intégré sta 205 001À 

câble Minite/1BM PC'* . ‘à 225,00F 

câble de liaison locale Apple I/Mac/IBM°" * à 225,00F 


“(préciser le type des deux machines à relier : Mac 512, Mac Plus, Apple //e //c, 116S, IBM APC" ) 


* pour les envois par avion, ajoutez 15 F par cäble. 





Envoyez ce bon et votre règlement à : Éditions MEV — 12, rue d'Anjou - 78000 Versailles 
Nom : SE 
Adresse : Æ 


Règlement par : Carte Bleue/VISA [] &° Chèque bancaire [1 Chèque postal [1 Mandat [] 
numéro de la carte date d'expiration ___ _ 


Montant els Signature : 











Programme de transmission InterPom’s 


Ce programme décrit pages 53 et 54 vous donne la possibilité d'échanger à distance via Minitel et en local des fichiers de texte entre 
Apple #, Macintosh et tBM PC'". Entre deux machines de même type, tous les fichiers sont transtérables : Applications, polices de 
caractères, acoæssoires de bureau, commandes, documents graphiques etc. 


Je désire recevoir : InterPom's pour Apple //, disquette {40Ko, 5'25 à 450,00F 
Inter Pom'’s pour Apple //, disquette 800Ko, 325 à 450,00F 
InterPom's pour Macintosh, disquette 3'25 ____ à 450,00F 
InterPom's pour IBM PC'* ____ à 450,00F 


* pour les envois par avion, ajoutez 15 F par disquette. 


Envoyez œæ bon et votre règlement à : Éditions MEV - 12, rue d'Anjou - 78000 Versailles 
Nom : 

Adresse : Se ms se © 0) 
Règlement par : Carte Bleue/VISA C1 & Chèque bancaïe [] Chèque postal © Mandat L] 
numéro de la carte date d'expiration 


Montant Ci Signature : 






















































i Li] Li] 
L'anti-disque 
Speedisk, 
la RAM Card à mémoire permanente 


nr À ] 
T7 21029 cn : + 
CARTE -] DE Po 


Rapidité Temps d'accès à l'information : 0.2 ms 
(100 fois plus rapide que les disques 
durs.….). 

Ë es — Par exemple : 

LI=2== = __ . démarrage sur Basic.System en 35, 

TT AppleWriter disponible en à peine 15. 


Fiabilité Constituée de circuit CMOS à très 
faible consommation. Speedisk est 
aussi fioble que l'ordinateur lui-même. 
Etle est insensible à l'environnement. 


Capacité Speedisk est proposée en quatre 
versions : 
1 Mo (1 048 576 octets) 
384Ko extensible à IMo 
avec horloge compatible ProDOS 
(pour les Apple )(+, //e) ou sans (NGS) 





Compatibilité 100% compatible avec ProPOS (c'est 
un volume), Speedisk fonctionne sur 
Apple )(+°, sur Apple //e et sur Apple 
iGsS. 
Prix Lecteur de Pom's. vous bénéficiez 
d'une remise de 10 % : 


SP400 


384Ko 59000 3591.00 


SP1000 


1 Mo 5540 5391.00 


SP400H 
384Ko horloge 4 58060 4 122,00 
SP1000H 


lMohoroge 6516 592200 


Garantie Speedisk est une fabrication française 
garantie Un an par échange de la 
carte. 


* Sur Apple )(+, ProDOS nécessite la carte langage. 










F 
UE de =: 


RARE NRA 
TA D A 2 27 2 PT À 2 





Vente par correspondance, LOGMA S.A. 
documentation, 12, rue d'Anjou 
renseignements 78000 Versailles 

Tél : (1) 3951 24 43 


Speedisk 






Je désire recevoir - sans engagement -— votre 
documentation sur les cartes Speedisk 




















